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IDENTIFICATION 

PRODUCT CODE: 

PRODUCT NAME: 

DATE RELEASED: 

MAINTAINER: 


AC-A941B-MC 

CVDZCBO DZV11 CABLE/ECHO TST 
1 7-F E8-82 

DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHAN6E WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1977, 1982 DIGITAL EQUIPMENT CORPORATION 
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2.1 


ABSTRACT 

THE FUNCTION OF THE DZV11 DIAGNOSTICS IS TO VERIFY THE OPTION OPERATES 
ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS ALSO VERIFY THAT THE DZV11 
OPERATES IN ITS ENVIRONMENT SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED. 

CURRENTLY THERE ARE THREE STANDALONE DIAGNOSTICS (DVDZA.DVDZB.AND DVDZC) 
ONE SYSTEM MODULE FOR DEC X/11 (DZBA) , ANi) AN OVERLAY FOR ITEP (DVDZD) . 

DVDZA TOGETHER WITH DVDZB WILL TEST ALL LOGICAL FUNCTIONS OF THE DZV11 
INTERFACE MODULE. 

DVDZl IS DESIGNED AS A NON-CHAINABLE STANDALONE DIAGNOSTIC PROVIDING THE 
OPERATOR WITH DIRECT CONTROL OVER THE TESTING OF ALL DZV11 EIA CABLES. 


;;GPA 

NOTE: THIS DIAGNOSTIC HAS BEEN MODIFIED TO RUN IN KXT11 (SBC 11/21) 
BASED SYSTEMS. THE PROGRAM WILL AUTOMATICALLY ADJUST ITSELF TO RUN 
IN THE APPROPRIATE ENVIRONMENT AS FOLLOWS: 


LSI-11. 11/2. AND 11/23 

CSR RANGE: 160010 TO 163770 

VECTOR RANGE: 300 TO 770 

AUTO-SIZING FOR... 

...CSR AND VECTOR: ENABLED 


SBC 11/21 

174000*T0”l 77770 
300 TO 370 

DISABLED 
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REQUIREMENTS 

EQUIPMENT 

AN LSI 11 CPU WITH MINIMUM 4K OF MEMORY. 

ASR 33 (OR EQUIVALENT FOR CONSOLE) 

ASR 33 (OR EQUIVALENT) TO RUN DZV11 ECHO TEST 

DZV1 1 INTERFACE MODULE 

H325 CABLE TURNAROUND CONNECTOR. 
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3.1.1 


STORAGE 

PROGRAM WILL USE ALL 4K OF MEMORY EXCEPT WHERE ABL AND BOOTSTRAP LOADER 
RESIDE. LOCATION 1500 THRU 1740 ARE ESPECIALLY TO BE NOTED AND TO BE 
UNTOUCHED BY THE OPERATOR IF THE PARAMETERS HAVE BEEN ALREADY BUILT BY 
RUNNING* EITHER THE DVDZA OR DVDZB DIAGNOSTICS. LOADING THIS DIAGNOSTIC 
WILL PRESERVE THESE LOCATIONS. 

LOADING PROCEEDURE 

METHOD 

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE A8SOLJTE 
LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH AS DISK 
.MAGTAPE. DEC TAPE, OR CASSETTE; FOLLOW INSTRUCTIONS FOR THE MONITOR 
WHICH HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA. 

ABSOLUTE LOADER STARTING ADDRESS *500 


MEMORY 

* SIZE 

4K 

17 

8K 

37 

12K 

57 

16K 

77 

2 OK 

117 

24K 

137 

28K 

157 


STARTING THE PROCESSOR AT THE ABSOLUTE LOADER STARTING ADDRESS WILL LOAD 
THE DIAGNOSTIC INTO MEMORY. 
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4. STARTING PPOCEEDURE 

A. SET THE SWR TO ALLOW THE DESIRED PROGRAM OPTIONS TO FUNCTION. 

NOTE: LOC. 000176 IS USED AS A SOFTWARE SWITCH REGISTER IN ALL OF 

THE DZ V1 1 DIAGNOSTICS. (SEE SEC. 4.1 ) UI1 . TVDC 

B START THE DIAGNOSTIC AT LOC. 200(8). THE PROGRAM WILL TYPE HAINDEC 
AND PROGRAM NAMES (IF THIS WAS THE FIRST START UP OF THE PROGRAM). 

C. THE PROGRAM WILL THEN ASK FOR THE DEVICE ADDRESS. THE VECTOR AND THE 
LINE NO. OF THE DZV11 TO BE TESTED. TYPE THESE VALUES ON THE CONSOLE 
TERMINAL FOLLOWED BY A <CR>. THE PROGRAM WILL THEN ASK FOR WHICH 
TEST IS DESIRED. ECHO OR CABLE. TYPE EITHER E OR C AND A <CR>. THE 
DIAGNOSTIC WILL TYPE OUT THE NAME OF THE TEST THAT IS NOW RUNNING 
(SEE SEC. 5.1). 

4 „ 1 CONTROL SWITCH SETTINGS 


HALT ON ERROR 
RESERVED 

INHIBIT ERROR PRINT OUT 

INHIBIT **ALL** TYPE 0UT/8ELL ON ERROR. 

RESERVED 

GO TO END OF PASS AFTER AN ERROR 

LOOP WITH CURRENT DATA (SEE SEC. 4.1.1) 

RESTART TEST AFTER AN ERROR 

RESERVED 

RESERVED 

RESERVED 

RESERVED 

RESERVED 

RESERVED 

RESERVED 

RESERVED 


NOTE: 

THIS 

NODI 

THE 

SW 

15 

SET: 

SW 

14 

SET: 

SW 

13 

SET: 

SW 

12 

SET: 

SW 

11 

SET: 

SW 

10 

SET: 

SW 

09 

SET: 

SW 

08 

SET: 

SW 

07 

SET: 

SW 

06 

SET: 

SW 

05 

SET: 

SW 

04 

SET: 

SW 

03 

SET: 

SW 

02 

SET: 

SW 

01 

SET: 

SW 

00 

SET: 


SEQ 0004 
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CV02CB.P11 

F 1 

; ; 6PA MACY11 306(1063) 10-AUG-81 11:15 PAGE 5 

10-AUG-81 10:56 

PAGE 5 

SEQ 0005 

4.1.1 

SWITCH REGISTER RESTRICTIONS 




SU 09 LOOP ON CURRENT DATA: THIS SWITCH IS ONLY USED IN THE CABLE TEST 

5 U TO LOCK ON TESTING IF SETTING THE DTR BlT FOR THE DESIRED LINE 

IN THE TRANSMIT CONTROL REGISTER OF THE DZV11 WILL CAUSE THE CO 

AND RING BITS TO SET FOR THAT LINE IN THE MODEM STATUS REGISTER. 

THIS SWITCH IS DESIGNED TO PROVIDE AN AID FOR A TRAINED TROUBLE- 
SHOOTER TO SAMPLE VARIOUS SIGNALS ON THE MODULE AND IS NOT MEANT 

TO BE USED AS A GENERAL USER CONTROL SWITCH. 


1 

4.1.2 

SWITCH REGISTER PRIORITIES 




ERROR SWITCHES 


I 


1. SW 12 DELETE PRINT OUT/BELL ON ERROR. 

2. SW 13 DELETE ERROR PRINTOUT. 

3. SW 15 HALT ON THE ERROR. 

4. SW 08 RESTART THE TEST AFTER AN ERROR 

5. SW 10 GO TO THE END OF PASS AFTER AN ERROR 


l 


SCOPE SWITCHES 




1. SW 09 (IF ENABLED BY 'SCQPD. IF AN '** IS PRINTED IN FRONT OF 

THE TEST NO. ON AN ERROR REPORT THEN SW09 IS INCORPORATED IN 

THAT TEST. THIS SWITCH PROVIDES THE OPERATOR WITH THE ABILITY TO 

LOCK ON A SPECIFIC TEST OPERATION. 

IF THE PROGRAM USER IS TECHNICALLY TRAINED TO ELECTRONICALLY 

ISOLATE SIGNAL PROBLEMS ON THE DZV11 MODULE, THIS SWITCH MIGHT 

PROVE TO BE A USEFUL AID. 

PRESENTLY THIS SWITCH IS ONLY USED IN THIS DIAGNOSTIC FOR THE 

CABLE TEST TO LOCK ON CHECKING THAT IF DTR IS SET FOR AN ACTIVE 

LINE THE CO AND RING WILL BECOME SET FOR THAT LINE. 


! 

| 4.2 

1 

STARTING ADDRESS 

SA 200 - THE STARTING ADDRESS FOR ANY DZV11 DIAGNOSTIC IS LOC. 200 



s 

NOTE: THIS DIAGNOSTIC IS NOT DESIGNED TO RUN IN AN AUTOMATIC CHAIN 

MODE BECAUSE OF THE OPERATOR INTERVENTION REQUIRED TO RUN IT. 



5 . 

OPERATING PROCEEDURE 




WHEN THE PROGRAM IS INITIALLY STARTED, MESSAGES AS DESCRIBED IN SECTION 

FOUR WILL BE PRINTED AND THE DIAGNOSTIC WILL BEGIN RUNNING. 
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HOW TO RUN THE "CABLE/ECHO" TESTS. 

NOR MAI STARTING PROCEEOURE FOR THE FIRST TIME WOULD BE: 

LOATHE DIAGNOSTIC, SET THE SWR AT LOC. 176 TO WHATEVER SETTINGS ARE 
DESIRED, THEN START THE PROGRAM AT LOC. 200. 

THE PROGRAM WILL PRINT OUT ON THE CONSOLE TERMINAL: 

’VECTOR ADDRESS-** 

YOU TYPE A VECTOR FOLLOWED BY A <CR>. 

"CONTROL REGISTER ADDRESS-** 

YOU TYPE IN THE DZVCSR ADDRESS UNDER TEST FOLLOWED BY A <CR>. 
'WHICH TEST ? ECHO OR CABLE (E OR C)** 

LETS DO THE CABLE TEST FIRST. TYPE "C" AND A <CR>. 

•BAUD RATE- ** 

TYPE EITHER 50. 110, 135, 150, 300, 600, 1200 1800, 2000, 2400. 
3600, 4800, 7260. 9600 FOLLOWED BY <CR> 


"LINE: " 


YOU TYPE THE LINE WHICH HAS THE H325 TEST CONNECTOR. (TYPE 
EITHER 0. 1,2. 3) PROGRAM WILL THEN PRINT: 


•CABLE TEST* 


"LINE: 


AND IF EVERYTHING IS WORKING, THE END OF PASS MESSAGE WILL BE 
PRINTED AFTER EACH PA'S. 

TO CHANGE LINES, HIT ANY PRINTING KEY ON YOUR CONSOLE TERMINAL 
WHILE THE PROGRAM IS RUNNING AND THE FOLLOWING WILL BE PRINTED: 


NOW CHANGE THE H325 TEST CONNECTOR TO ANOTHER LINE AND TYPE THE 
NEW LINE. PROGRAM WILL THEN PRINT: 


‘CABLE TEST* 


AND BEGIN RUNNING THE DIAGNOSTIC. 

CONTINUE THIS OPERATION UNTIL ALL LINES ARE TESTED. 
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ECHO TEST 

START THE PROGRAM AT LOC. 200 AND ENTER THE VALUES FOR THE CSR ADDRESS 
AND THE DEVICE VECTOR. THE PROGRAM WILL THEN PRINT OUT ON THE CONSOLE: 

’WHICH TEST ? ECHO OR CABLE (E OR C>" 

NOW TYPE AN "E" TO DO THE ECHO TEST. PROGRAM WILL PRINT: 

•BAUD RATE-” 

TYPE THE BAUD RATE. BAUD RATE CHOICES ARE: 50.75, 110, 135, 150 
300, 600 ,1200, 1800, 2000, 2400, 3600, 4806, foOO, 9600. THE 
PROGRAM WILL THEN PRINT- 


LINE: 


TYPE THE LINE NUMBER WHICH THE TERMINAL IS CONNECTED TO. 
THE PROGRAM WILL PRINT: 


"TERMINAL ECHO TEST" 

*** AT THIS POINT THE MESSAGE: 

"THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789" 

SHOULD BE PRINTED ON THE TERMINAL CONNECTED TO THE DZV11. IF 
THIS MESSAGE IS DESIRED TO BE PRINTED CONTINUOUSLY, TYPE A 
CONTROL G< £ G> ON THE CONSOLE TERMINAL WHILE THE MESSAGE IS 
PRINTING. THE PROGRAM WILL PRINT A PROMPT ON THE CONSOLE ASKING 
FOR A NEW SWR SETTING. BY SETTING THE SWR TO 3 77 THE QUICK BROWN 
FOX MESSAGE WILL BE CONTINUOUSLY PRINTED ON THE DZV TERMINAL. A 
CONTROL G CAN THEN BE TYPED ON THE CONSOLE TEWUNAL AT ANY TIME 
TO RESET THE SWR AND RETURN TO THE FLOW OF THE DIAGNOSTIC. 

THE PROGRAM WILL THEN PRINT ON THE CONSOLE TERMINAL: 

"TYPE A CHAR. ON DZV11 TERMINAL" 

ANY PRINTABLE CHARACTER WHICH IS TYPED ON THE DZV11 TERMINAL 

§5 e ?$i d m pyrsrfc *»n ™ m*m 

will Sint the end of pass message on the console terminal and 

THE ‘ttUICK BROWN FOX" MESSAGE WILL BEGIN PRINTING ON THE DZV11 
TERMINAL AGAIN, THE ECHO TEST WILL BE RESUMED. 

TO CHANGE LINES: 

TYPE ANY PRINTABLE CHARACTER ON THE CONSOLE TERMINAf. (NOT THE 
DZV11 TERMINAL). THE PROGRAM WILL AGAIN TYPE "LINE: AND WAIT 

FOR A RESPONSE. 
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PROGRAM AND/OR OPERATOR ACTION 

THE VARIETY OF PROGRAM CONTROL SWITCHES PROVIDED IN THIS DIAGNOSTIC 
PACKAGE IS DESIGNED TO PROVIDE THE USER WITH A WIDE RANGE OF TROUBLE- 
SHOOTING TECHNIQUES. BEFORE THE USER ATTEMPTS TO RUN THIS DIAGNOSTIC HE 
SHOULD BECOME FAMILIAR WITH THE USE OF THESE CONTROL SWITCHES AND THEIR 
RESTRICTIONS. (SEE SEC. 4.1, 4.1.1, 4.1.2. 4.1.3) 

WHEN THE PROGRAM DETECTS AN ERROR THE TEST NUMBER AND PC WILL BE TYPED 
OUT AND POSSIBLY AN ERROR MESSAGE (DEPENDING ON THE PARTICULAR ERROR). 
IF IT IS NECESSARY TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT 
THEN LOOK IN THE PROGRAM LISTING FOR THAT TEST NUMBER AND THEN NOTE THE 
PC OF THE ERROR REPORT. THE REASON FOR THE ERROR REPORT WILL BECOME 
CLEARER WHEN READING THE COMMENTS IN THE PROGRAM LISTING. 

ERRORS 

AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND PC TYPED 
OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 12=0). IN MOST 
CASES ADDITIONAL INFORMATION WILL BE SUPPLIED TO THE THE ERROR MESSAGE 
WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR. 

ERROR RECOVERY 

IF FOR SOME REASON THE DZV11 SHOULD 'HANG THE BUS' (GAIN CONTROL OF BUS 
SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INI T OR POWER DOWN/UP 
IS NECESSARY FOR THE OPERATOR TO REGAIN CONTROL OF THE CPU. IT WILL THEN 
BE NECESSARY TO CHECK THE PC PROCESSOR REGISTER AND REFER TO THIS 
LOCATION IN THE PROGRAM LISTING TO FIND OUT WHAT THE PROGRAM WAS DOING 
AT THE TIME OF THE ERROR. 

OPERATING RESTRICTIONS 

WHEN RUNNING THE CABLE TEST, THE LINE THAT IS DECLARED ACTIVE MUST BE 
TERMINATED BY AN H325 TEST CONNECTOR WHICH WILL TURN THE TRANSMITTED 
SIGNAL AROUND TO THE RECEIVER ON THE SAME LINE. 

THE DIAGNOSTIC IS NOT DESIGNED TO DETERMINE A LOGIC PROBLEM WITH THE D2V 
INTERFACE. IT IS DESIGNED ONLY TO VERIFY THAT THE INTERFACE CABLE IS 
PROVIDING A TRUE LINK TO THE TERMINALS WHICH ARE CONNECTED TO THE DZV11 . 
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8. MISCELLANEOUS 

8.1 EXECUTION TIME 

given X at u staSt T up E time. THE at A 960o! E baud E the D end P pass H mesII6E E uill UI> print 

MMSo TEST TS ENTIRELY DEPENDENT UPON THE 
NUMBER OF CHARACTERS THE OPERATOR WISHES TO SEND. 

8.2 PASS COMPLETE 

WHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF 
THE PRINT OUT TO BE EXPECTED. 

END PASS DVDZC-A CSR: 160100 VEC: 300 PASSES: 000001 ERRORS: 000000 

NOTE: THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE VALUES FOR 

THE DEVICE. THEY ARE ONLY FOR THIS EXAMPLE. 


SEQ 0009 
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9.0 

9.1.1 


9.1.2 


9.1.3 


KEY LOCATIONS 

AFTER THE BASE DEVICE ADDRESS AND THE BASE VECTOR HAVE BEEN TYPED IN, 
LOCATIONS 2010 THROUGH 2046 WILL CONTAIN THE VARIOUS DEVICE REGISTER 
ADDRESSES AND THE DEVICE VECTORS. LOCATION 1374 (SAVLIN) WILL CONTAIN 
THE LINE NUMBER THAT WAS DECLARED ACTIVE. 

RUNNING THE DZV11 DIAGNOSTIC UNDER APT 

THE APT INTERFACE 

THE DZV DIAGNOSTICS HAVE BEEN DESIGNED TO BE COMPATIBLE WITH THE APT 
AUTOMATED PRODUCT TEST) SYSTEM. THE DZV LOGIC TEST DIAGNOSTICS (DVDZA 
AND DVDZB) CAN BE RUN AS STANDALONE DIAGNOSTICS OR IN EITHER OF THE APT 
MODES. DVD2C, HOWEVER IS DESIGNED AS A STANDALONE DIAGNOSTIC ONLY AND 
REQUIRES DIRECT OPERATOR PARTICIPATION. 

SETTING UP THE DIAGNOSTIC USING APT 

ONLY ONE VARIABLE IN THE REGION SUBTITLED “APT MAI LBOX-E TABLE" NEEDS TO 
BE SET UP BEFORE RUNNING UNDER APT. THIS VARIABLE IS: 


SSWREG -(1142) 


USED AS THE SOFTWARE SWITCH REGISTER WHILE RUNNING 
UNDER APT. 


RUNNING UNDER APT 

SSWREG (LOC. 1142) SHOULD BE SET UP PRIOR TO RUNNING THE DIAGNOSTIC. 


SEQ 0010 
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10.0 PROGRAM DESCRIPTION. 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC-1 1-DZQAC-C3) , JAN 19. 1977. 


11 


47 

74 


STARTING PROCEDURE 

LOAD PROGRAM 

START THE PROGRAM AT LOC. 000200 
PROGRAM WILL TYPE DZV11 ECHO/CABLE TEST 
PROGRAM WILL TYPE WHICH TEST- ECHO OR CABLE 
TYPE IN E OR C RESPECTIVELY 
PROGRAM WILL TYPE 'VECTOR ADDRESS-" 

TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
FOR THE DZV11 TO BE TESTED. FOLLOWED BY CARRIAGE RETURN> 
PROGRAM WILL TYPE "CONTROL REGISTER ADDRESS-" 

TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
FOR THE DZV11 TO BE TESTED. FOLLOWED BY <CARRIAGE RETURN> 
PROGRAM WILL TYPE '1INE NUMBER-" 

TYPE IN THE LINE NUMBER TO BE TESTED (IN OCTAL) 

.FOLLOWED BY < CARRIAGE RETURN> 

PROGRAM WILL TYPE 'BAUD RATE-" 

TYPE IN THE BAUD RATE OF THE DZV11 TERMINAL 
.FOLLOWED BY CARRIAGE RETURN> 

THE FOLLOWING BAUD RATES ARE ACCEPTED IN DECIMAL 
50 
75 
110 
135 
150 
300 
600 
1200 
1800 
2000 
2400 
3600 
4800 
7200 
9600 

ALL OTHERS ARE REJECTED 


(ROUNDED OFF 134.5) 


PROGRAM WILL TYPE "ECHO" OR "CABLE TEST" TO INDICATE THAT TESTING HAS STARTED 


INITIAL ADDRESS OF THE STACK POINTER *** 1120 *** 


f:0 0011 
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SEQ 0012 

X. 

79 

MISCELLANEOUS DEFINITIONS 


-v 

91 

GENERAL PURPOSE REGISTER DEFINITIONS 



103 

PRIORITY LEVEL DEFINITIONS 



113 

"SWITCH REGISTER" SWITCH DEFINITIONS 



HI 

DATA BIT DEFINITIONS (81 TOO TO BIT15) 



169 

BASIC "CPU" TRAP VECTOR ADDRESSES 



384 

BITS 15-*11=CPU TYPE 

1 1 /04=01 ,11/05=02,11 /20=03 , 1 1 /40=04 , 1 1 /45=05 

1 1 /70=06,PDQ=07 ,0=1 0 

BIT 10=REAL TINE CLOCK 

BIT 9=FL0ATING POINT PROCESSOR 

BIT 8=MEM0RY MANAGEMENT 



392 

MEM. TYPE BYTE — (HIGH BYTE) 

900 NSEC CORE=001 

300 NSEC BIP0LAR=002 

500 NSEC MOS=003 

! 


397 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "TYPE" ABOVE 



436 

THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

USED IN THE PROGRAM. 

i 


488 

THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

LOCATION IITENB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

N0TE1 : IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

NOTE 2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



494 

EM ; .-POINTS TO THE ERROR MESSAGE 

DH ; .-POINTS TO THE DATA HEADER 

DT ; .-POINTS TO THE DATA 

DF .* .-POINTS TO THE DATA FORMAT 



873 

INCREMENT THE PASS NUMBER (SPASS) 

IF THERES A MONITOR GO TO IT 

IF THERE ISN'T JUMP TO X8EGIN 



995 

ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYiE. 

THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

N0TE1 : SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

NOTE?: If ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

N0Tc3: IFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

1 



CALL: 

1) USING A TRAP INSTRUCTION 

TYPE .MESADR ; ; ME SADR IS FIRST ADDRESS OF AN ASCIZ STRING 

OR 

! 
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TYPE 
HE SADR 

1728 ********* ECHO TEST ********** 

THIS TEST WILL ACCEPT 1 CHARACTER AT A TIME 

(IN INTERRUPT MODE) AND TRANSMIT THAT SAME CHARACTER, 

ONE LINE AT A TIME, ANY LINE 0 THRU 7 (OCTAL) 

1799 ********* CABLE TEST ********** 

THIS TEST TRANSMITS A BINARY COUNT PATTERN 
VIA INTERRUPT MODE TO THE RECEIVER 

...THE LINE UNDER TEST MUST BE TERMINATED WITH THE TEST CONNECTOR 


1808 TEST TO VERIFY THAT SETTING DTR FOR A GIVEN LINE 
WILL BRING UP "CO" AND 'KING" FOR THE SAME LINE 
JUMPERS W1 ,W2,W3 AND W4 MUST BE INSTALLED ON THE 
INTERFACE MODULE OTHERWISE AN ERROR REPORT WILL RESULT. 

& 


( 
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2144 

2145 
(2) 

(2) 

(2) 

(2) 

( 2 ) 

( 2 ) 

( 2 ) 

(?) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

<2) 

(2) 

( 2 ) 

(2) 

(2) 

( 2 ) 

(2) 

( 2 ) 

( 2 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 
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SEO 0014 


;GPA PRGFRT *?MAINDEC-1 1-DVDZCA/<200>/DZVl1 ECHO AND CABLE TESTS 

;GPA .HEADER <MD-11-DVDZC-A>.1977 

TJTLE CVDZC-B 

•COPYRIGHT (C) 1977.1981 

•DIGITAL EQUIPMENT CORP. 

•MAYNARD. NASS. 01754 
* 

•THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 HAINDEC SYSMAC 
•PACKAGE (MAINDEC-11-DZQAC-C5), JAN. 1981. 

* 


7.DVDZCA 


000001 


iTNal 


•STARTING PROCEDURE 
•LOAD PROGRAM 

•START THE PROGRAM AT LOC. 000200 
•PROGRAM WILL TYPE DZV11 ECHO/CABLE TEST 
•PROGRAM WILL TYPE WHICH TEST- ECHO OR CABLE 
•TYPE IN E OR C RESPECTIVELY 
•PROGRAM WILL TYPE 'VECTOR ADDRESS-" 

•TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
•FOR THE DZV11 TO BE TESTED. FOLLOWED BY CARRIAGE RETURN> 

•PROGRAM WILL TYPE "CONTROL REGISTER ADDRESS-" 

•TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
•FOR THE DZV11 TO BE TESTED. FOLLOWED BY CARRIAGE RETURN> 

•PROGRAM WILL TYPE r tINE NUMBER-" 

•TYPE IN THE LINE NUMBER TO BE TESTED (IN OCTAL) 

•.FOLLOWED BY CARRIAGE RETURN> 

•PROGRAM WILL TYPE 'BAUD RATE-" 

•TYPE IN THE BAUD RATE OF THE DZV11 TERMINAL 
•.FOLLOWED BY CARRIAGE RETURN> 

.-•THE FOLLOWING BAUD RATES ARE ACCEPTED IN DECIMAL 

* 50 

* 75 

* 110 

* 13S 

* 15t 

* 300 

* 600 

* 1200 

• 1800 

* 2000 

• 2400 

• 3600 

• 4800 

• 7200 

• 9600 
•ALL OTHERS ARE REJECTED 

•PROGRAM WILL TYPE 'fCHO" OR "CABLE TEST" TO INDICATE THAT TESTING HAS STARTED 


(ROUNDED OFF 134.5) 


REM 1 

•SWITCH REGISTER OPTIONS 


SW1 5=1 00000 


;=1 .HALT ON ERROR 
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( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

(1) 

(1) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 001120 
( 2 ) 

( 2 ) 

( 2 ) 
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INTRODUCTION TO DZ VI 1 DIAGNOSTIC 


SEO 0015 


SWl 4=40000 
SU1 3=20000 
SU1 2-1 0000 
SW1 1=4000 
SW1 0=2000 
SW09=1000 
SW08=4OO 
SW07=200 
SU06=100 

SW05=40 

SW04=20 

SW03=10 

SW02=4 

SW01=2 

SW00=1 


=1 .LOOP ON CURRENT TEST 

=1, INHIBIT ERROR TYPEOUT 

=1. DELETE TYPEOUT/BELL ON ERROR. 

=1, INHIBIT ITERATIONS 
=1 .ESCAPE TO NEXT TEST ON ERROR 
=1 .LOOP WITH CURRENT DATA 
=1 .LOOP ON ERROR 

=1, DO "AUTO SIZING" ON INITAL START UP. 

=1. DESELECT SPECIFIC DEVICES 

NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT 

=1, SELECT DELAY PARAMETER 

*1. SELECT SPECIFIC PARAMETERS 

si. LOCK ON TEST SELECT 

si. RESTART PROGRAM AT SELECTED TEST 

si, SELECT DEVICE ADDRESS, VECTOR, ETC. 


(2) 

000011 

HT= 

11 

(2) 

000012 

LF= 

12 

(2) 

000015 

CR= 

15 

(2) 

000200 

CRLF= 

200 

(2) 

177776 

PS= 

177776 

(2) 

(2) 

177774 

.EQUIV 

STKLMT= 

PS.PSW 

17^774 

(2) 

177772 

PIRQ= 

177772 

(2) 

177570 

DSWR= 

177570 

(2) 

177570 

DDISP= 

177570 

(2) 

(2) 

(2) 

000000 

.'•GENERAL PURPO 
R0= XO 

(2) 


Rl = 

XI 

(2) 


R2= 

12 

(2) 

■v ' vffl ■ 

R3= 

Z3 

(2) 


R4= 

Z4 

(2) 


R5= 

X5 

(2) 


R6= 

X6 

(2) 


R 7= 

X7 

(2) 


SP= 

16 

(2) 


PC= 

%7 

(2) 

(2) 

(2) 

000000 

.'•PRIORITY LEVE 
PRO= 0 

(2) 

■•TJWTMSipji™ 

PR1 = 

40 

(2) 


PR2= 

100 

(2) 

■HiiHyfii 

PR3= 

140 

(2) 

Bry ' yB-' 

PR4= 

200 

(2) 


PR5= 

240 

(2) 


PR6= 

300 


S8TTL BASIC DEFINITIONS 

.•INITIAL ADDRESS OF THE STACK POINTER *•• 1120 »*» 

STACK= 1120 

EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 

EQUIV IOT, SCOPE ; .-BASIC DEFINITION OF SCOPE CALL 

•MISCELLANEOUS DEFINITIONS 

;CODE FOR HORIZONTAL TAB 
.'CODE FOR LINE FEED 
;CODE FOR CARRIAGE RETURN 
;CODE FOR CARRIAGE RETURN-LINE FEED 
.'PROCESSOR STATUS WORD 

.•STACK LIMIT REGISTER 
.•PROGRAM INTERRUPT REOUEST REGISTER 
; HARDWARE SWITCH REGISTER 
; HARDWARE DISPLAY REGISTER 


GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 


DEFINITIONS 

; PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 


D 2 
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CV0ZCB.P1 1 

lO- AUG-81 10:56 

BASIC DEFINITIONS 

(2) 

(2) 

(2) 

000340 

PR 7= 

340 .'.'PRIORITY LEVEL 7 


.•♦"SWITCH RE6ISTER" SWITCH DEFINITIONS 

(2) 

100000 

SW15- 

100000 

(2) 


SW14- 

40000 

(2) 


SW13= 

20000 

(2) 

010000 

SW12- 

10000 

(2) 

004000 

SW11 = 

4000 

(2) 

002000 

swio= 

2000 

(2) 

(2) 

(2) 


SW09= 

SW08= 

SW07= 

1000 

400 

200 

(2) 

000100 

SW06= 

100 

(2) 

000040 

SW05= 

40 

(2) 

000020 

SW04= 

20 

(2) 

000010 

SW03= 

10 

(2) 

(2) 

(2) 

4vMi lit 1 1 

SM02= 

SW01- 

SWOO- 

4 

2 

1 

(2) 


.EQUIV 

SW09.SW9 

(2) 


.EQUIV 

SW08.SW8 

(2) 


.EQUIV 

SW07.SW7 

(2) 


.EQUIV 

SW06.SW6 

(2) 


.EQUIV 

SW05.SW5 

(2) 


.EQUIV 

SW04.SW4 

(2) 


.EQUiV 

SW03.SW3 

(2) 


.EQUIV 

SW02.SW2 

(2) 


.EQUIV 

SW01.SW1 

(2) 

(2) 

(2) 


.EQUIV 

swoo.swo 


.•♦DATA BIT DEFINITIONS (B1T00 TO BIT15) 

(2) 


BIT15* 

100000 

(2) 

‘‘V 

BIT14* 

40000 

(2) 

020000 

BIT13* 

20000 

(2) 

010000 

BIT12= 

10000 

(2) 

004000 

BIT11* 

4000 

(2) 

002000 

BIT10= 

2000 

(2) 

001000 

BIT09= 

1000 

(2) 

l«l» III f 1 Ml 1 1 

BIT08= 

400 

(2) 

000200 

BIT07= 

200 

(2) 

000100 

BIT06- 

100 

(2) 


BIT05> 

40 

(2) 

000020 

BIT04- 

20 

(2) 

000010 

BIT03= 

10 

(2) 

(2) 

a y.M» ;n#if ' 
r *£.. • -- 1 

BIT02 S 

BIT01= 

4 

2 

(2) 


BIT00= 

1 

(2) 


.EQUIV 

BIT09.BIT9 

(2) 


.EQUIV 

BIT08.BIT8 

(2) 


.EQUIV 

BIT07.BIT7 

(2) 


.EQUIV 

BIT06.BIT6 

(2) 


.EQUIV 

BIT05.8IT5 

(2) 


.EQUIV 

BIT04.BIT4 

(2) 


.EQUIV 

BIT03.8IT3 

(2) 


.EQUIV 

BIT02.BIT2 

(2) 


.EQUIV 

BIT01 .81 T1 


SEO 0016 
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000010 

000014 

000014 

000014 


000030 

000034 



11:15 PA6E 21-3 
BASIC DEFINITIONS 

.EOUIV BIT00.8IT0 


EQ 001 


;*8ASIC 

§RRVEC- 

RESVEC= 

TBITVEC= 

TRTVEC= 

BPTVEC= 

IOTVEC= 

PWRVEC= 

EMTVEC= 

TRAPVECs 

TKVEC= 

TPVEC= 

PI ROVE C= 


TRAP VECTOR 


ADDRESSES 

TINE OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
■T* BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 

INPUT/OUTPUT TRAP (IOT) “SCOPE** 
POWER FAIL 

EMULATOR TRAP (ENT) “ERROR** 

r TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAN INTERRUPT REQUEST VECTOR 


.•INSTRUCTION DEFINITIONS 



PUSH1 SP=5746 
P0P1SP=5726 
PUSHRO= 10046 
POPRO=1 2600 
PUSH2SP=24646 
P0P2$P=22626 
NASK=BIT7 
CLEAR=0 


DECRENENT PROCESSOR STACK 1 WORD 
INCRENENT PROCESSOR STACK 1 WORD 
SAVE RO ON STACK 
RESTORE RO FRON STACK 
DECRENENT STACK TWICE 
INCRENENT STACK TWICE 

SET INTERRUPT NASK (INHIBIT FURTHER INTERRUPTS) 
ALLOW INTERRUPTS (CLEAR PROCESSOR STATUS) 



000000 

000400 

001000 

001400 


DZV11 CONTROL AND STATUS REGISTER DEFINITIONS 
(DZVCdR) BIT DEFINITIONS 


NAINT = BIT3 

DCLR=8IT4 

NSENAB=8IT5 

RIE=8IT6 

RD0NE=8IT7 

SILOEN- BIT12 

SILOAL = BIT13 

TIE=8IT14 

TRDY=8IT15 


MAINTENANCE NODE ENABLE 
DEVICE CLEAR 
NASTER SCAN ENABLE 
RECEIVER INTERRUPT ENABLE 
RECEIVER DONE 
SILO ALARN ENABLE 
SILO ALARN 

TRANSNITTER INTERRUPT ENABLE 
TRANSMITTER READY 


;DZVCSR WORD DEFINITIONS 


TLO=0 

TL1=BIT8 

TL2=8IT$ 

TL3=8IT9.'BIT8 


TRANSMIT LINE 0 
TRANSMIT LINE 1 
TRANSMIT LINE 2 
TRANSMIT LINE 3 


;DZVRBUF BIT DEFINITIONS 


010000 


PARER=8IT12 


.•PARITY ERROR 
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(1) 020000 

(1) 040000 

( 1 ) 100000 


000000 

000400 

001000 

001400 
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GENERAL DEFINITIONS AND EQUIVALENCES 


SEQ 0018 


FRMERR=8IT13 

0VRRUN=8IT14 

DVALID=8IT15 


FRAME ERROR 
OVERRUN ERROR 
DATA VALID 


;DZVRBUF WORD DEFINITIONS 


RL0=0 

RLl=8IT8 

RL2=8IT9 

RL3=8IT9!BIT8 


RECEIVER LINE 0 
RECEIVER LINE 1 
RECEIVER LINE 2 
RECEIVER LINE 3 


;DZVLPR WORD DEFINITIONS 


000000 

000001 

000002 

000003 



000100 

000200 

000000 

000040 

000000 

010000 


001000 

001400 

002000 

002400 

003000 

003400 

004000 

004400 

005000 

005400 


007000 

007400 


000001 


LP0=0 
LP1=8IT0 
LP2=8IT1 
LP3=8IT1 JBITO 


LINE PARAMETER 0 
LINE PARAMETER 1 
LINE PARAMETER 2 
LINE PARAMETER 3 


F I VE=0 ;FIVE BITS/CHAR. 1 STOP BJT 

SIX=8IT3 ;SIX BITS/CHAR. 1 STOP BIT 

SEVEN=8I14 .-SEVEN BITS/CHAR. 1 STOP BIT 
EIGHT=8IT4!BIT3 ;EI6HT B1TS/CHAR.1 STOP BIT 
FIVES=8IT5 ;FIVE BITS/ CHAR.* STOP BITS 
SIXS=8IT5!BIT3 ;SIX BITS/CHAR. 5 STOP BITS 
SEVENS=8IT5JBIT4 ;SEVEN BITS/CHAR. 2 STOP BITS 

EIGHTS=8IT5!BIT4!BIT3 ;EIGHT BITS/CHAR. 2 STOP BITS 


PARITY=8I T6 

0DDPAR=BIT7 

ONESTOP=0 

TW0ST0P=6IT5 

EVEPAR=0 

RCV0N=8IT12 

S50=0 

S75=8IT8 

SI 10=81 T9 

S134=8IT9J8IT8 

SI 50=81 T10 

S300=8IT10!BIT8 

S600=8IT10!BIT9 

S1200=8IT10!BIT9'BIT8 

S1800=BIT11 

S2000=aiT11!BIT8 

S2400=8IT11!8IT9 

S3600=8IT11.'8IT9!BIT8 

S 4800=8 1 TII.'BITIO 

S7200=8IT11 !BIT10!BIT8 

S9600=8IT11!BIT10*BIT9 

S19200=8IT11 JBITIO.'BI T9 


PARITY ENABLED 

ODD PARITY ENABLED 

ONE STOP BIT ENABLED 

TWO STOP BITS ENABLED 

EVEN PARITY ENABLED 

ENABLE RECEIVER (RECEIVER ON) 


; SPEED 50 BAUD 
.-SPEED 75 BAUD 
; SPEED 110 BAUD 
; SPEED 134.5 BAUD 
.-SPEED 150 BAUD 
; SPEED 300 BAUD 
.-SPEED 600 BAUD 
; SPEED 1200 BAUD 
.-SPEED 1800 BAUD 
; SPEED 2000 BAUD 
.-SPEED 2400 BAUD 
; SPEED 3600 BAUD 
; SPEED 4800 BAUD 
.-SPEED 7200 BAUD 
; SPEED 9600 BAUD 
•§IT8 .SPEED 19200 BAUD 


.-DZVTCR BIT DEFINITIONS 

TCR0=BIT6 .-ENABLE TRANSMISSION ON LINE 0 
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(1) 000002 

(1) 000004 

(1) 000010 

(1) 000400 

(1) 001000 

(1) 002000 

(1) 004000 
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GENERAL DEFINITIONS AND EQUIVALENCES 


SEQ 0019 


TCR1=BIT1 

TCR2*8IT2 

TCR3=8IT3 

DTR0=BJT8 

DTR1=BIT9 

DTR2-BIT10 

DTR3=6IT11 


ENABLE TRANSMISSION 
ENABLE TRANSMISSION 
ENABLE TRANSMISSION 
DATA TERMINAL READY 
DATA TERMINAL READY 
DATA TERMINAL READY 
DATA TERMINAL READY 


ON LINE 1 
ON LINE 2 
ON LINE 3 
FOR LINE 0 
FOR LINE 1 
FOR LINE 2 
FOR LINE 3 


;DZVMSR BIT DEFINITIONS 


RINGO=8ltO 

RING1=8IT1 

RING2=8IT2 

RING3=SIT3 

C00=8IT8 

C01=8IT9 

C02=BIT10 

C03=BIT11 


RING INDICATED ON LINE 0 
RING INDICATED ON LINE 1 
RING INDICATED ON LINE 2 
RING INDICATED ON VINE 3 
CARRIER PRESENT ON LINE 0 
CARRIER PRESENT ON LINE 1 
CARRIER PRESENT ON LINE 2 
CARRIER PRESENT ON LINE 3 


;DZVTDR BIT DEFINITIONS 


000400 

001000 

002000 

004000 


8RK0=8IT8 
BRK1=8IT9 
BRK2=8IT10 
BRK3=8IT1 1 


BREAK FOR LINE 0 
BREAK FOR LINE 1 
BREAK FOR LINE 2 
BREAK FOR LINE 3 
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( 1 ) 

( 1 ) 

( 1 ) 

(1) 

(1) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 


H 2 
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GENERAL DEFINITIONS AND EQUIVALENCES 

TABLE OF LOOP AROUND 

FUNCTIONS CH325) 

I 

A 

V 

A 

REC 

TRANS 

DATA 

DATA 

I 

A 

V 

A 

CO 

RTS 

I 

mm 

A 

V 

A 

RING 

DTR 


S£Q 0020 
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( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

<1) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 000024 
<1 ) 000026 
(1) 000030 
(1) 000032 
(1) 000034 

(1) 000036 

( 2 ) 

(2) 

(3) 

(2) 

(2) 

(2) 

(2) 000046 
(2) 

(2) 000052 
(2) 

(1) 

(1) 

(1) 000174 

(1) 000176 
(1) 

(1) 000200 
(1) 

( 2 ) 

( 2 ) 

(2) 001000 
( 2 ) 


I 2 
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TRAPCATCHER FOR UNEXPECTED INTERRUPTS 


SEG 0021 


TRAPCATCHER FOR ILLEGAL INTERRUPTS 
THE STANDARD •'TRAP CATCHER” IS PLACED 
BETWEEN ADDRESS 0 TO ADDRESS 776. 

IT LOOKS LIKE ”P C*2 HALT”. 


000000 


000024 

005702 

000340 

005010 

000340 

004602 

000340 


000040 

000046 

002676 

000052 

000000 

000040 

000174 

000000 

000000 

000200 

000137 002116 


.=0 


.■STANDARD INTERRUPT VECTORS 


.S8TTL 


.=24 

SPURDN 

340 

(ERROR 

340 

. TRPSRV 
340 

ACT11 HOOKS 


POWER FAIL HANDLER 
SERVICE AT PRIORITY LEVEL 7 
ERROR HANDLER 

SERVICE AT PRIORITY LEVEL 7 
GENERAL HANDLER DISPATCH SERVICE 
SERVICE AT PRIORITY LEVEL 7 


.HOOKS REQUIRED BY ACT11 
SSVPC=. 

.=46 

SENDAD 

.=52 

.WORD 0 
.=$SVPC 

.=174 A 
DISPREG.-O 
SWREG: 0 
.=200 


.-SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

;;2>SET LOC.52 TO ZERO 
;; RESTORE PC 


.•SOFTWARE DISPLAY REGISTER FOR SWITCHLESS IIS 
.•SOFTARE SWITCH REGISTER FOR SWITCHLESS IIS 


Jf¥> 


.START 


;G0 TO START OF PROGRAM 


001000 

005200 


053103 055104 


.=1000 

HTITLE: 


.ASCIZ <200><1 2>/CVDZC3/<200>/DZVl 1 ECHO AND CABLE TESTS /<200> 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


SEQ 0022 


( 3 ) 

(4) 

(4) 

(4) 

(5) 

(4) 

(4) 001120 
(4) 001120 
(4) 001122 
(4) 001124 

(4) 001126 
(4) 001130 
(4) 001132 
(4) 001134 
(4) 001136 
(4) 001140 
(4) 001 HO 
(4) 001141 
(4) 001142 
(4) 001144 
(4) 001146 
(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 001150 
(4) 001151 
(4) 

(4) 

(4) 

(4) 

(4) 001152 
(4) 

(4? 001154 
(4) 001155 
(4) 001156 
(4) 001160 
(4) 001161 

(4) 001162 
(4) 001164 
(4) 001165 
(4) 001166 
(4) 001170 
(4) 001172 
(4) 001174 

(4) 001176 
(4) 001200 
(4) 001202 
(4) 001204 
(4) 001206 
(4) 001210 
(4) 001212 
(4) 001214 

(4) 001216 


001120 


000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000 

000 

000000 

000000 

000000 


000 

000 


000000 

000 

000 

000000 

000 

000 

oooooo 

000 

000 

oooooo 

oooooo 

oooooo 

160010 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 


.=1120 

'.SBTTL APT MAILBOX-ETABLE 


.EVEN 
SNAIL: 
SMSGTY: 
SFA r AL : 
STESTN: 
SPASS: 
SDEVCT: 
SUNIT : 
SMSGAD: 
SMSGLG: 
SETABLE: 
SENV: 
SENVM: 
SSUREG: 
SUSWR: 
SCPUOP: 
;* 

; * 

;* 

; * 

;* 

;» 

SMAMS1 : 
SMTYP1 : 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.BYTE 
• BYTE 
.WORD 
.WORD 
.WORD 


.BYTE 

.BYTE 


AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 

AMSGLG 

AENV 

AENVM 

ASWREG 

AUSUR 

ACPUOP 


AMAMS1 

AMTYP1 


MAORI : .WORD ANADR1 

JMAMS2: .BYTE ANANS2 

$MTYP2: .BYTE ANTYP2 

SMADR2: .WORD ANADR2 

SMAMS3: .BYTE AMAMS3 

IMTYP3: .BYTE AMTYP3 

SNADR3: .WORD AMADR3 

SMAMS4: .BYTE AMAMS4 

SMTYP4: .BYTE AMTYP4 

SMADP4: .WORD AMADR4 

SVECT1 : .WORD AVECT1 

SVECT2: .WORD AVECT2 

S6ASE: .WORD ABASE 

SDEVH: .WORD ADEVM 

SCDW1 : .WORD ACDWl 

SCDW2: .WORD ACDW2 

SDDWO: .WORD ADDWO 

SDDU1: «WRD ADDW1 

SDDW2: .WORD ADDW2 

SDDW3: .WORD ADDU3 

SDDW4: .WORD ADDW4 

SDDW5: .WORD ADDW5 


;;APT MAILBOX 
; .-MESSAGE TYPE CODE 
;; FATAL ERROR NUMBER 
;;TEST NUMBER 
; ; PASS COUNT 
; .‘DEVICE COUNT 
;;I/0 UNIT NUMBER 
;;MESSA6E ADDRESS 
; ; MESSAGE LENGTH 
;;APT ENVIRONMENT TABLE 
;; ENVIRONMENT BYTE 
;; ENVIRONMENT MODE BITS 
;;APT SWITCH REGISTER 
;;USER SWITCHES 
;;CPU TYPE, OPTIONS 
§ITS 15-1 1=CPU TYPE 

1 1 / 04*01 . 1 1 /05=02. 1 1 / 20=03,1 1 /40=04 , 1 1 /45=05 
1 1/70=06. PDQ=07,Q= 10 
BIT IOsREAL TIME CLOCK 
BIT 9*FL0ATIN6 POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
.-.‘HIGH ADDRESS.M.S. BYTE 
;;MEM. TYPE.BLKfl 
M§M,TVPE BYTE — 'HI6H BYTE) 

900 NSEC CORE *001 
300 NSEC BIPOLAR=002 
500 NSEC M0S=003 

"MEM^LAST^DR^^BYTES.THIS WORD AND LOW OF , 7YPE‘' ABOVE 

;;HIGH ADDRESS.M.S. BYTE 

;; MEM. TYPE ,8U#2 

;;MEM.LAST ADDRESS ,BLK#2 

.'.‘HIGH ADDRESS.M.S. BYTE 

; ;MEM. TYPE ,BLK#3 

;;MEM.LAST ADDRESS, BLK#3 

.-.-HIGH ADDRESS.M.S. BYTE 

; ;MEM, TYPE ,BLK#4 

;;MEM.LAST ADDRESS ,BLK#4 

.*; INTERRUPT VECTOR#!, BUS PRIORI TY#1 

; ; INTERRUPT VECTOR#26uS PRIORI TY#2 

;;BASE ADDRESS OF EQUIPMENT UNDER TEST 

;; DEVICE MAP 

; ; CONTROLLER DESCRIPTION W0RD#1 
;; CONTROLLER DESCRIPTION W0RDR2 
.‘.DEVICE DESCRIPTOR W0RD#0 
;; DEVICE DESCRIPTOR WORDfl 
; .-DEVICE DESCRIPTOR W0RD#2 
;; DEVICE DESCRIPTOR W0RDA3 
; ; DEVI CE DESCRIPTOR W0RDR4 
;; DEVICE DESCRIPTOR W0RD#5 


K 2 
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(4) 

001220 

000000 

(4) 

001222 

000000 

(4) 

001224 

000000 

(4) 

001226 

000000 

(4) 

001230 

KH 

(4) 

001232 

000000 

(4) 

001234 

B 1 *i *1 

(4) 

001236 

■i iTiTiTi ii 

(4) 

001240 


(4) 

001242 

i] 

(4) 



(4) 



(4) 

001244 


(4) 
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APT MAI L80X-E TABLE 

$DDU6: .UORD ADDU6 

JDDU7: .UORD ADDU7 

SDDU8: .WORD ADDW8 

$DDU9 : .UORD ADDU9 

SDDUIO: .UORD ADDUIO 

SDDU11: .UORD ADDU11 

JDDU12: .UORD ADDUl 2 

JDDU13: .UORD ADDUl 3 

SDDU14: .UORD ADDUl 4 

SDDU15: .UORD ADDUl 5 


$ETEND: 


.'.DEVICE DESCRIPTOR U0RD*6 
; .-DEVICE DESCRIPTOR UORD#7 
; .DEVICE DESCRIPTOR UORD/T8 
..'DEVICE DESCRIPTOR U0RD#9 
.‘.'DEVICE DESCRIPTOR UORD/MO 
; .DEVICE DESCRIPTOR UORDfll 
; .DEVICE DESCRIPTOR UORD#12 
; ; DEVICE DESCRIPTOR UORD113 
.* .'DEVICE DESCRIPTOR U0RD/T14 
.'.'DEVICE DESCRIPTOR UORDJ15 


EQ 0023 


L 2 
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(3) 

(3) 

( 4 ) 

(3) 

(3) 

(3) 

(3) 001244 

(3) 001244 000000 
(3) 001246 000 

(3) 001247 000 

(3) 001250 000000 
(3) 001252 000000 
(3) 001254 000000 

(3) 001256 000000 
(3) 001260 000 

(3) 001261 001 

(3) 001262 000000 
(3) 001264 000000 
(3) 001266 000000 
(3) 001270 000000 

(3) 001272 000000 

(3) 001274 000000 

(5) 001276 000000 

(3) 001300 000 

(3) 001301 000 

(3) 001302 000000 
(3) 001304 177570 

(3) 001306 177570 

(3) 001310 177560 

(3) 001312 177562 
(3) 001314 177564 

(3) 001316 177566 
(3) 001320 000 

(3) 001321 002 

(3) 001322 012 

(3) 001323 000 

(3) 001324 000000 
(3) 

(5) 001326 000000 
(5) 001330 000000 
(5) 001332 000000 
(5) 001334 000000 
(5) 001336 000000 

(5) 001340 000000 
(5) 001342 000000 
(5) 001344 000000 
(5) 001346 000000 
(5) 001350 000000 
(5) 001352 000000 
(3) 001354 000000 
(3) 001356 077 

(3) 001357 015 

(3) 001360 000012 
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COMMON TAGS 

.SfiTTL COMMON TAGS 


SEQ 0024 


•THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
*USED IN THE PROGRAM. 


SCMTAG: 

STSTNM: 

SERFLG: 

SICNT: 

SLPADR: 

SLPERR: 

SERTTL: 

S ITEMS: 

SERMAX: 

SERRPC: 

SGDADR: 

S6DADR : 

SGDDAT: 

S8DDAT : 


JAUT08: 

SINTAG: 

SUR: 
DISPLAY 
STKS 
STKB 
STPS 
STP8 
SNULL: 
SPILLS: 
SPILLC: 
STPFLG: 
ME GAD: 


SREGO 

SREG1 

SREG2 

SREG3 

SREG4 

SREG5 

STMPO 

STMP1 

STMP2 

STMP3 

STMP4 

STIMES 

SQUES: 

SCRLF : 

SLF: 


.WORD 

.BYTE 

.BYTE 

.WORD 

.WORD 

.WORD 

.WORD 

.BYTE 

.BYTE 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.BYTE 

.BYTE 

.WORD 

.WORD 


0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

DSWR 


.WORD 

177560 

177562 

177564 

177566 

DDISP 

.BYTE 

0 

.BYTE 

2 

.BYTE 

12 

.BYTE 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

0 

.ASCII 

/?/ 

.ASCII 

<15> 

.ASCIZ 

<12> 


; .-START OF COMMON TAGS 

;; CONTAINS THE TEST NUMBER 
.-.-CONTAINS ERROR FLAG 
.'.CONTAINS SUBTEST ITERATION COUNT 
;; CONTAINS SCOPE LOOP ADDRESS 
;; CONTAINS SCOPE RETURN FOR ERRORS 
.-.‘CONTAINS TOTAL ERRORS DETECTED 
.'.'CONTAINS ITEM CONTROL BYTE 
;; CONTAINS MAX. ERRORS PER TEST 
.'.'CONTAINS PC OF LAST ERROR INSTRUCTION 
.’.'CONTAINS ADDRESS OF 'GOOD* DATA 
.'.‘CONTAINS ADDRESS OF 'BAD' DATA 
;; CONTAINS 'GOOD' DATA 
;; CONTAINS 'BAD' DATA 
.-.•RESERVED— NOT TO BE USED 

.‘.‘AUTOMATIC MODE INDICATOR 
.-.'INTERRUPT MODE INDICATOR 

.'.'ADDRESS OF SWITCH REGISTER 
.'.'ADDRESS OF DISPLAY REGISTER 
;;TTY KBD STATUS 
;;TTV KBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 
;;TTY PRINTER BUFFER REG. ADDRESS 
; .'CONTAINS NULL CHARACTER FOR FILLS 
;; CONTAINS # OF FILLER CHARACTERS REQUIRED 
; .'INSERT FILL CHARS. AFTER A ’UNE FEED" 
.'.'"TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 
..'CONTAINS THE ADDRESS FROM 
; .'WHICH (SREGO) WAS OBTAINED 
..CONTAINS <<ME6AD>*0) 

.-.'CONTAINS (($RE6AD)+2) 

..CONTAINS ((SREGAD>+4) 

.'.'CONTAINS ((MEGADH6) 

.'.CONTAINS <<MEGAD>*10) 

.-.CONTAINS <<MEGAD>*12> 

..USER DEFINED 

;;USER DEFINED 

..-USER DEFINED 

.'.USER DEFINED 

.'.‘USER DEFINED 

;;MAX. NUMBER OF ITERATIONS 

.’.'QUESTION MARK 

;; CARRIAGE RETURN 

.-.'LINE FEED 



M 2 


CV02C-6 MACY11 306(1063) 10-AUG-81 

CV0ZCB.P11 1C-AUG-81 10:56 

( 3 ) 

(3) 

( 3 > 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 001362 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

(2) 001362 000000 

(2) 001364 000000 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

(2) 001366 000017 

(2) 001370 017470 
(2) 001372 000000 
(2) 001374 000000 

(2) 001376 000000 
(2) 001400 000000 
(2) 001402 000000 
(2) 001404 000000 

(2) 001406 000001 
(2) 001410 000001 
(2) 001412 000001 
(2) 001414 000001 

(2) 001415 001 

(2) 001416 000001 
(2) 001420 

(2) 001420 001500 


11:15 PAGE 21-11 
ERROR POINTER TABLE 

.SBTTL ERROR POINTER TABLE 

•‘THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
; ‘LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE I S PERTINENT. 

•‘N0TE1 : IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

"•‘NOTE 2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

• * EM ; .-POINTS TO THE ERROR MESSAGE 

.* DH ; .-POINTS TO THE DATA HEADER 

'•* DT ;; POINTS TO THE DATA 

.* DF ;; POINTS TO THE DATA FORMAT 


SEO 0025 


SERRTB: 


NEXT: 

LOCK: 


;PR06RAM CONTROL PARAMETERS 


.-PROGRAM VARIABLES 


LINE: 17 

PAR: 17470 

MODE: 0 

SAVLIN: 0 
XMTLIN: 0 
XMTCNT: 0 
REGIST: 0 
SAVPC : 0 
DZVACTV: .8LKU 
$ A VAC TV:. SLK W 


RUN: 

DZVNUM 


: .BLKfi 1 


SAVNUM: .BYTE 1 
SAVNO: .81 KB 
.EVEN 

ACTIVE: DZV.MAP 


.-ADDRESS OF NEXT TEST TO BE EXECUTED 
.-ADDRESS FOR LOCK ON CURRENT TEST. TIGHT LOOP 


.-DEFAULT ALL FOUR LINES RUNNING ^ 

.PARAMETERS: 8 BITS/CHAR. 2 STOP BITS. 19200 BAUD. NO PARIT 
.-DEFAULT MAINTENANCE MODE 
.-LINE NUMBER _ 

.-TRANSMISSION LINE NUMBER 

.-COUNT OF WORDS IN A TRANSMISSION PATTERN 
.-DEVICE ADDRESS STORAGE LOCATION 
.PROGRAM COUNTER ST0RA6E 
.-‘DZVIVS SELECTED ACTIVE. 

;*A BIT MAP OF DZV1TS IN THE SYSTEM 
; ‘POINTER ONE PAST RUNNING DEVICE. 

.-‘OCTAL NUMBER OF DZVII'S IN THE SYSTEM 

;io?TAL B NUMBER B OF*DZVl1 , S BEING TESTED 

.-TABLE POINTER. 


N 2 


CVDZC-e MACY11 306(1063) 10-AU6-81 

CV0ZCB.P11 10-AUG-81 10:56 

< 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 


( 2 ) 

( 2 ) 


11:15 PA6E 21-12 
ERROR POINTER TABLE 


001422 

000 

INIFLG: 

.BYTE 

001423 

000 

HDRFLG: 

.BYTE 

001424 

000 

MNTFLG: 

.BYTE 

001425 

000 

DONFLG: 

.BYTE 



.EVEN 




.•DATA VARIABLES 

001426 


TDO 


.WORD 

001430 


TD1 


.WORD 

001432 

mm - 

TD2 


.WORD 

001434 

" V 

TD3 


.WORD 

001436 


TRO 


.WORD 

001440 

•Ivivl'M •' “ 

TR1 


.WORD 

001442 

rl'Wm 

TR2 


.WORD 

001444 


TR3 


.WORD 

001446 


STOP: 



( 2 ) 

( 2 > 

(3) 

( 2 ) 

(3) 

( 2 ) 

( 2 ) 

(2) 000024 
( 2 ) 

12) 000044 

( 2 ) 

(3) 

( 2 ) 

( 2 ) 

( 2 ) 


001446 

000024 

000200 

000044 

001446 

001446 


; PROGRAM CONTROL FLAGS 


0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 

0 


PROGRAM INITIALIZATION FLAG 
PROGRAM INITIALIZATION FLAG FOR HEADER MAP 
MAINTENANCE BIT SET FLAG 
TRANSMISSION COMPLETION FLAG 


.S8TTL APT PARAMETER BLOCK 


;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


.$X=. ; ; SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ;;FOR APT START UP 

.=44 ; .-POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR ;; POINT TO APT HEADER BLOCK 
.=.SX ; .RESET LOCATION COUNTER 

•SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1 1 DIAGNOSTIC 
.•INTERFACE SPEC. 


(2) 

001446 


SAPTHD: 



(2) 

001446 

000000 

SHIBTS: 

.WORD 

0 

(2) 

001450 

001120 

SMBADR: 

.WORD 

SMAIL 

(2) 

001452 

000000 

STSTM: 

.WORD 

0. 

(2) 

001454 

000000 

SPASTM: 

.WORD 

0. 

(2) 

001456 

000000 

SUNITM: 

.WORD 

0. 

(2) 

001460 

000052 


.WORD 

SETEND 

(1) 




.-DZV11 

STATUS 

(1) 




# ****** 


(1) 






(1) 


001500 

.=1500 



(1) 

001500 


DZV.MAP: 



(3) 






(3) 

001500 

000001 

DZCRO: 

•BLKW 

1 

(3) 

001502 

000001 

DZVCO: 

.BLKW 

1 

(3) 

001504 

000001 

LINEO: 

.BLKW 

1 

(3) 

001506 

000001 

PARO: 

.BLKW 

1 

(3) 

001510 

000001 

MANTO: 

.BLKW 

1 

(3) 






(3) 

001512 

000001 

DZCR1 : 

.BLKW 

1 

(3) 

001514 

000001 

DZVC1 : 

.BLKW 

1 

(3) 

001516 

000001 

LINE1 : 

.BLKW 

1 


;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

.•ADDRESS OF APT MAILBOX (BITS 0-15) 

.-RUN TIM OF LONGEST TEST 

.-RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
.•ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL 


CONTROL STATUS REGISTER FOR DZV11 NUMBER 0 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 0 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 1 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 1 
ALL LINES SELECTED 


SEQ 0026 


UNIT 


j CVDZC-6 MACY11 306(1063) 10-AUG-81 

CVDZCB.P1 1 10-AUG-81 10:56 

(3) 001520 C00001 
(3) 001522 000001 
(3) 

(3) 001524 000001 
(3) 001526 000001 
(3) 001530 000001 

(3) 001532 000001 

(3) 001534 000001 
(3) 

(3) 001536 000001 

(3) 001540 000001 
(3) 001542 000001 
(3) 001544 000001 

(3) 001546 000001 
(3) 

(3) 001550 000001 
(3) 001552 000001 
(3) 001554 000001 
(3) 001556 000001 
(3) 001560 000001 

(3) 

(3) 001562 000001 
(3) 001564 000001 

(3) 001566 000001 

(3) 001570 000001 
(3) 001572 000001 
(3) 

(3) 001574 000001 

(3) 001576 000001 
(3) 001600 000001 
(35 001602 000001 

(3) 001604 000001 
(3) 

(3) 001606 000001 
(3) 001610 000001 
(3) 001612 000001 
(3) 001614 000001 
(3) 001616 000001 

(3) 

(3) 001620 000001 

(3) 001622 000001 
(3) 001624 000001 
(3) 001626 000001 
(3) 001630 000001 
(3) 

(3) 001632 000001 
(3) 001634 000001 
(3) 001636 000001 
(3) 001640 000001 
(3) 001642 000001 
(3) 

(3) 001644 000001 
(3) 001646 000001 
(3) 001650 000001 
(3) 001652 000001 
(3) 001654 000001 


11:15 PAGE 21-13 
APT PARAMETER BLOCK 

PARI : .BLKW 1 
MANT1 : .BLKU 1 

DZCR2: .BLKU 1 
DZVC2: .BLKU 1 
LINE2: .BLKU 1 
PAR2: .BLKU 1 
MANT2: .BLKU 1 

DZCR3: .BLKU 1 
DZVC3: .BLKU 1 
L1NE3: .BLKU 1 
PAR3: .BLKU 1 
MANT3: .BLKU 1 

DZCR4: .BLKU 1 
DZVC4: .BLKU 1 
LINE4: .BLKU 1 
PAR4: .BLKU 1 
MANT4: .BLKU 1 

DZCR5: .BLKU 1 
DZVC5: .BLKU 1 
LINE5: .BLKU 1 
PAR5: .BLKU 1 
MANT5: .BLKU 1 

DZCR6: .BLKU 1 
DZVC6: .BLKU 1 
LINE6: .BLKU 1 
PAR6: .BLKU 1 
MANT6: .BLKU 1 

DZCR7: .BLKU 1 
DZVC7: .BLKU 1 
LINE7: .BLKU 1 
PAR7: .BLKU 1 
MANT7: .BLKU 1 

DZCR10: .BLKU 1 
DZVC10: .BLKU 1 
L1NE10: .BLKU 1 
PAR10: .BLKU 1 
MANT10: .BLKU 1 

DZCR11 : .BLKU 1 
DZVC11 : .BLKU 1 
LINE 1 1 : .BLKU 1 
PARI 1 : .BLKU 1 
MAN? 11 : .BLKU 1 

DZCR12: .BLKU 1 
DZVC12: .BLKU 1 
LINE12: .BLKU 1 
PARI 2: .BLKU 1 
MANT12: .BLKU 1 


i 


SEO 0027 


B 3 


PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 2 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 2 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 3 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 3 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 4 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 4 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 5 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 5 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE NODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 6 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 6 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 7 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 7 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 10 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 10 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 11 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 11 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 12 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 12 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 



C 3 


CVDZC-B MACY11 306(1063) 10-AUG-81 

CVDZCB.P1 1 10-AUG-81 10:56 
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APT PARAMETER 

BLOCK 

(3) 

(3) 

001656 

000001 

DZCR13: .BLKU 

1 

(3) 

001660 

000001 

DZVC13: .BLAU 

1 

(3) 

001662 

000001 

LINE 13: .BLAU 

1 

(3) 

001664 

000001 

PARI 3: .BLAU 

1 

(3) 

(3) 

(3) 

001666 

000001 

MANT13: .BLAU 

1 

001670 

000001 

DZCR14: .BLAU 

1 

(3) 

001672 

000001 

DZVC14: .BLAU 

1 

(3) 

001674 

000001 

LINE14: .BLAU 

1 

(3) 

001676 

000001 

PARI 4: .BLAU 

1 

(3) 

(3) 

(3) 

001700 

000001 

MANT14: .BLAU 

1 

001702 

000001 

DZCR15: .BLAU 

1 

(3) 

001704 

000001 

DZVC15: .BLAU 

1 

(3) 

001706 

000001 

LINE15: .BLKU 

1 

(3) 

001710 

000001 

PARI 5: .BLKU 

1 

(3) 

(3) 

(3) 

001712 

000001 

MANT15: .BLKU 

1 

001714 

000001 

DZCR16: .BLKU 

1 

(3) 

001716 

000001 

DZVC16: .BLKU 

1 

(3) 

001720 

000001 

LINE16: .BLKU 

1 

(3) 

001722 

000001 

PARI 6: .BLKU 

1 

(3) 

(3) 

(3) 

001724 

000001 

MANT16: .BLKU 

1 

001726 

000001 

DZCR17: .BLKU 

1 

(3) 

001730 

000001 

DZVC17: .BLKU 

1 

(3) 

001732 

000001 

LINE17: .BLKU 

1 

(3) 

001734 

000001 

PAR17: .BLKU 

1 

(3) 

(1) 

(1) 

001736 

000001 

HANT17: .BLKU 

1 

001740 

177777 

DZV.END: 

177777 


CONTROL STATUS REGISTER FOR DZV11 NUMBER 13 
RECEIVER AND BASE VECTOR FOR OZ VI 1 NUMBER 13 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 14 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 14 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 15 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 15 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 16 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 16 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 17 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 17 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 



CVDZC-B MACY11 

30G(1063) 

CVDZCB.P11 1 O-AUG-81 

(1) 



(1) 



(1) 



(1) 



(1) 



(1) 



(1) 

001742 


(3) 


104400 

(2) 

001742 

004676 

(3) 


104401 

(2) 

001744 

003136 

(3) 


104402 

(2) 

001746 

003162 

(3) 


104403 

(2) 

001750 

004002 

(3) 


104404 

(2) 

001752 

004106 

(3) 


104405 

(2) 

001754 

004126 

(3) 


104406 

(2) 

001756 

006536 

(3) 


104407 

(2) 

001760 

004326 

(3) 


104410 

(2) 

001762 

004366 

(3) 


104411 

(2) 

001764 

004420 

(3) 


104412 

(2) 

001766 

004424 

(3) 


104413 

(2) 

001770 

004624 

(3) 


104414 

(2) 

001772 

004656 

(3) 


104415 

(2) 

001774 

002742 

(3) 


104416 

(2) 

001776 

006656 

(3) 


104417 

(2) 

002000 

004644 

(3) 


104420 

(2) 

002002 

004710 

(3) 


104421 

(2) 

002004 

004726 

(3) 


104422 

(?) 

002006 

004766 

(1) 



(1) 



(1) 
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APT PARAMETER BLOCK 


DEFINITIONS FOR TRAP SUBROUTINE CALLS 

POINTERS TO SUBROUTINES CAN BE FOUND 

IN THE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS 


TRPTAfi • 

ADVANCE =TRAP*0 
.ADVANCE 
SCOP1=TRAP+1 
.SCOP1 
TYPE=TRAP+2 
.TYPE 
INSTR=TRAP+3 
.INS TR 

INSTER=TRAP*4 

.INSTER 

PARAM=TRAP+5 

.PARAM 
SETFLG=TRAP*6 
.SETFLG 
SAV05=TRAP*7 
.SAV05 
RES05=TRAP*10 
.RE SOS 
CONVRT=TRAP+11 
.CONVRT 
CNVRT=TRAP+12 
CNVRT 

DEVI CE . CLR S TRAP*1 3 
•DEVICE. CLR 
DELAY=TRAP*14 
.DELAY 

PARMD=TRAP*15 

.PARMD 

PAWCH=TRAP*16 

.PAWCH 

DCLASM=TRAP+17 

.DCLASM 

SHIFT*TRAP+?0 

.SHIFT 

LPRSET*TRAP+21 

.LPRSET 

BUFSET=TRAP*22 

.8UFSET 


CALL TO ADVANCE TO NEXT TEST 

CALL TO LOOP ON CURRENT DATA HANDLER 

CALL TO TELETYPE OUTPUT ROUTINE 

CALL TO ASCII STRING INPUT ROUTINE 

CALL TO INPUT ERROR HANDLER 

CALL TO NUMERICAL DATA INPUT ROUTINE 

CALL TO SET FLAG ROUTINE 

CALL TO REGISTER SAVE ROUTINE 

CALL TO REGISTER RESTORE ROUTINE 

CALL TO DATA OUTPUT ROUTINE 

CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 

; CALL TO ISSUE A DEVICE CLEAR 
.-CALL TO DELAY FOR FAST CPU'S 
; CONVERT DECIMAL STRIN6 TO OCTAL 
;SET FLAG ECHO OR CABLE 
.•CLEAR DEVICE, SET MAINT. BIT IF I MODE 
.-CALL TO ROTATE LINE POINTER 
.•CALL TO SET UP LPR DEVICE REGISTER 
.•CALL TO ZERO BUFFER AREA 




SEO 0050 


INDIRECT POINTERS 


F 3 


CVDZC-B HACY11 

306(1063) 10- AUG-81 

11:15 PAGE 21-17 

CVDZCB 

P11 

0-AJG-81 10:56 

APT PARAMETER BLOCK 

(1) 

(1) 




;TIHE TABLE FOR RELATIVE TIMING TESTS 

(1) 




• 

(1) 





(1) 

002050 


TNTBL : 


<1) 

002050 


T50: 

0 

(1) 

002052 


T75: 

0 

(1) 

002054 

000000 

T 1 1 0 : 

0 

(1) 

002056 

000000 

T134: 

0 

(1) 

002060 


T150: 

0 

(1) 

002062 

000000 

T300: 

0 

(1) 

002064 

000000 

T600: 

0 

(1) 

002066 

000000 

T1200: 

0 

(1) 

002070 

000000 

T1800: 

0 

(1) 

002072 

000000 

T2000: 

0 

(1) 

002074 

000000 

T2400: 

0 

(1) 

002076 

000000 

T3600: 

0 

(1) 

002100 

000000 

T4800: 

0 

(1) 

002102 


T7200: 

0 

(1) 

002104 

000000 

T9600: 

0 

(1) 

002106 

000000 

TEJGHT:0 

(1) 

002110 


TSEVEN: 

0 

(1) 

002112 

000000 

TSIX: 

0 

(1) 

002114 

000000 

TFIVE : 

0 
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PROGRAM INITIALIZATION AND START UP. 


PROGRAM INITIALIZATION 

LOCK OUT INTERRUPTS 

SET UP PROCESSOR STACK 

SET UP POWER FAIL VECTOR 

CLEAR PROGRAM CONTROL FLAGS AND COUNTS 

TYPE TITLE MESSAGE 


SEQ 0032 


) 002160 
) 002162 
) 002170 
) 002174 

) 002202 
) 002206 
) 002212 
) 002216 
) 002222 
) 002226 
) 002232 
) 002236 
) 002240 
) 002244 

) 002244 
) 002250 
) 002252 
) 002260 


000005 

012706 

106427 

012737 

012737 

105737 

100004 

012737 

000405 

012737 

004737 

012737 

005037 

005037 

005037 

105037 

005037 

005037 

004737 

001402 

004737 

105737 

001010 

023727 

001402 


001120 

000200 

005702 

002116 

001141 


000024 

001252 


001142 001304 


001304 

001306 


000176 

005464 

000174 

007130 

001126 

001256 

001247 

001246 

007134 

013304 

000570 

001422 


000042 002676 


.START: RESET 
MOV 
MTPS 
MOV 
MOV 
TSTB 
BPL 

MOV 

do 

1$: MOV 

CALL 
2$: MOV 

CLR 


1000 $: 


#STACK.SP 

MASK 

#$PWRDN,B#24 
0 . START. SLPADR 
SENVM 
1 $ 

ASSURE G.SUR 
2$ 

fSWREG.SWR 

GETSWR 

0DISPREG, DISPLAY 
STFLG 
SPASS 
SERTTL 
SERFLG 
STSTNM 
LAST 
FALCON 
1000 $ 

FALCINI 

INIFLG 

VEC1 

a*42,*$EN0AD 

3$ 


CLEAR THE WORLD 

SET UP PROCESSOR STACK 

LOCK OUT INTERRUPTS 

SET UP FOR POWER FAIL 

SET UP IN CASE OF POWER FAIL 

RUNNING UNDER APT? 

IF NOT SKIP SWR SETUP FOR APT 
SETUP FOR APT SWR 
SKIP SOFTWARE SWR SETUP 
SETUP SOFTWARE SWITCH REGISTER OTHERWISE 
GET INITIAL SWITCT SETTING ;;GPA 

;SETUP DISPLAY REGISTER 
CLEAR TEST START FLAG 
CLEAR PASS COUNT 
CLEAR ERROR COUNT 
CLEAR ERROR FLAG 
CLEAR TEST NO. INDICATOR 
CLEAR LAST ERROR PC 
TEST FOR FALCON (KXT11) ;;GPA 

DB IE MAT • • CD1 

INIT FOR FALCON SYSTEM ;;GPA 

;;GPA 

HAS TITLE BEEN TYPED YET? 

IF YES SKIP PRINTING A6AIN 
RUNNIN6 UNDER ACT? 

IF YES DON'T PRINT TITLE 


) 

002262 

104402 

001000 


TYPE 

.MTITLE 

.PRINT TITLE 

I 

) 

002266 

105337 

001422 

3$: 

DECS 

INIFLG 

.‘INDICATE TITLE ALREADY TYPED 

! 

) 

002272 

012701 

000300 

VEC1 : 

MOV 

#300.R1 



) 

002276 

012702 

000302 


MOV 

#302.R2 



) 

002302 

010221 


1$: 

MOV 

R2.(ftm 

.RESTORE TRAPCATCHER 


) 

002304 

005022 



CLR 

(R2) + 

;IN FLOATING VECTOR AREA 

| 

) 

002306 

022122 



CMP 

(RD*. (R2> ♦ 

; UPDATE THE POINTERS 

i 

) 

002310 

005737 

013320 


TST 

KXTFLAG 

; IF FALCON... 

;;GPA 

) 

002314 

001403 



8E0 

1001$ 


;;GPA 

) 

002316 

020127 

000400 


CMP 

R1 ,#400 

.‘...QUIT AT 400. 

;;GPA 

) 

002322 

000402 



402 


; SKIP NEXT 

;;GPA 

) 

002324 



1001$: 




;;GPA 

) 

C02324 

020127 

001000 


CMP 

Rl.flOOO 



) 

002330 

001364 



BNE 

1$ 




(1) 002332 
(1) 002334 
(1) 002336 

(1) 002340 
(1) 002342 
(1) 002344 


002332 

104403 

007204 

104405 

160000 

163770 

001174 


GETCSR; 

INSTR 

MREGAD 

PARAM 

160000 

163770 

SBASE 


POINTER FOR FALCON TWEAKER. ;;GPA 
INPUT ADDRESS OF DEVICE CSR 

message Control register address-" 

CONVERT STRING TO OCTAL 
LOW LIMIT 
HIGH LIMIT 

LOCATION TO BE FILLED 


CVDZC-B MACY11 30G<1063 
CVDZCB.P11 10-AUG-81 


(1) 

(1) 

(1) 

(1) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

(1) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

< 1 > 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

Cl) 

( 1 ) 


002346 

002347 


002350 

002352 

002354 

002356 

002360 

002362 

002364 

002365 

002366 

002372 

002374 

002376 

002400 

002402 

002404 

002406 

002410 

002412 

002414 

002416 

002417 

002420 

002422 

002426 

002430 

002432 

002434 

002436 

002440 

002442 

002443 

002444 

002450 

002454 

002460 

002464 

002470 

002472 

002500 

002504 

002506 

002512 

002516 

002520 

002526 

002532 

002534 

002540 

002544 

002544 


007 

001 

002350 

104403 

007162 

104405 

000300 

000770 

002040 

003 

004 
004737 

104403 

007371 

104416 

007126 

104403 

007312 

104415 

000062 

022600 

007144 

000 

001 

104413 

005037 

104403 

007302 

104405 

000000 

000003 

001374 

000 

001 

004537 

106427 

012706 

005037 

005737 

001413 

012737 

005737 

001017 

005157 

104402 

000412 

012737 

005737 

001004 

005137 

104402 

000177 


H 3 
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10:56 PROGRAM INITIALIZATION AND START 




.BYTE 

7 



• BYTE 

1 



GFTVEC= 

INSTR 

MVECTOR 

• 



PARAM 

300 

770 

DZVRIV 

.BYTE 

3 



.BYTE 

4 

007764 


JSR 

PC,DZVLEV 



INSTR 

MUNICH 

PAWCH 

WCHFLw 



BAUD: 

INSTR 

MSPEED 

PARMD 

50. 

9600. 

LINESP 



.BYTE 

0 



.BYTE 

1 



LINEX: 

DEVICE. 

CLR 

007130 


CLR 

STFLG 


INSTR 

MLINE 





PARAM 

0 

3 

SAVL1N 



.BYTE 0 

.BYTE 1 


006732 


JSR 

R5.SET 

000200 


XBEGIN: MTPS 

fMASK 

001120 


MOV 

#STACK,SP 

007132 


CLR 

LOCKUP 

007126 


TST 

WCHFLG 



BEG 

2$ 

010500 

001252 

MOV 

#TST2,SLPADR 

007130 


TST 

STFLG 



BNE 

1$ 

007130 


COM 

STFLG 

007464 


TYPE 

.MCABLE 



BR 

fs 

010124 

001252 

2$: MOV 

fTSTI , JLPADR 

007130 


TST 

STFLG 



BNE 

IS 

007130 


COM 

STFLG 

007437 


TYPE 

,MTERM 



IS: 


176502 


RE START :JMP 

BSLPADR 


UP. 


;LSB MASK 

.-NUMBER OF LOCATIONS 


POINTER FOR FALCON TWEAKER. ;;GPA 
INPUT ADDRESS OF DEVICE VECTOR 
MESSAGE 'VECTOR ADDRESS-" 

CONVERT STRING TO OCTAL 
LOW LIMIT 
HIGH LIMIT 
LOCATIONS TO BE FILLED 
i co mask 

NUMBER OF LOCATIONS 
GO BUILD DEVICE POINTERS 

INPUT WHICH TEST YOU ARE RUNNING 

ECHO OR CABLE 

SET FLAG 

THIS FLAG 

INPUT BAUD RATE 

MESSAGE 'BAUD RATE-" 

CONVERT DECIMAL STRING TO OCTAL 
LOU LIMIT 
HIGH LIMIT 

LOCATION TO BE FILLED 
l SB MASK 

NUMBER OF LOCATIONS 
CLEAR DEVICE 

CLEAR PROGRAM START FLAG 
INPUT LINE NUMBER 
MESSA6E '1INE NUMBER-" 

CONVERT STRING TO OCTAL 
LOU LIMIT 
HIGH LIMIT 

LOCATION TO BE FILLED 
LSB MASK 

NUMBER OF LOCATIONS 


LOCK OUT INTERRUPTS 
SET UP PROCESSOR STACK 
CLEAR TIMEOUT 
ECHO OR CABLE TEST ? 
ECHO 

CABLE TEST 
ARE YOU LOOPING ? 

YES 

NO 

TYPE CABLE TEST 

SET UP ECHO TEST 
ARE YOU LOOPING ? 

YES 

NO 

TYPE ECHO TEST 


;START TESTING, THIS LOCATION IS ALSO 


SEO 0033 


I 3 
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PROGRAM INITIALIZATION AND START UP. 


(i) .-USED BY THE POWER UP ROUTINE 

2146 ;;GPA PRGEND DZV11,<END PASS DVDZC-A >,10. 


SEQ 0034 


CVDZC-B HACY11 306(1063) 10-AUG-81 11:15 PAGE 21-21 

CVDZCB.P11 10-AUG-81 10:56 END OF PASS ROUTINE 


;END OF PASS 
;TVPE NAME OF TEST 
.•UPDATE PASS COUNT 
.•CHECK FOR EXIT TO ACT-1 
•RESTART TEST 

.SBTTL §ND OF PASS ROUTINE 


•INCREMENT THE PASS NUMBER (SPA 
•IF THERES A MONITOR GO TO IT 
•IF THERE ISN’T JUMP TO XBEGIN 


002550 

002550 

002554 

002560 

002564 

002570 

002574 

002600 

002604 

002610 

002614 

002620 

002624 

002630 

002634 

002640 

002644 

002652 

002654 

002656 

002660 

002662 

00266* 

002666 

002672 

002674 

002676 

002700 

002702 

002704 

002706 

002706 

002710 

002712 

002714 

002716 

002720 

002722 

002724 

002726 

002730 

002732 

002734 


005037 

105037 

104402 

104402 

104412 

104402 

104412 

005237 

104402 

104412 

005337 

1C4402 

104412 

005037 

005237 

042737 

005327 

000001 

003013 

012737 

000001 

C02654 

013700 

001405 

000005 

004710 

000240 

000240 

000240 

000137 

002450 

000001 

006 

002010 

000001 

003 

002040 

000001 

006 

001126 

000001 


001262 

001247 

006117 

006301 

002712 

006307 

002720 

001126 

006315 

002726 

001126 

006326 

002734 

001354 

001126 


001126 


000042 


SEOP: 

CLR 

CL RB 

TYPE 

TYPE 

CNVRT 

TYPE 

CNVRT 

INC 

TYPE 

CNVRT 

DEC 

TYPE 

CNVRT 

CLR 

INC 

BIC 

DEC 

SEOPCT: .WORD 
BGT 
MOV 

SENDCT: .WORD 
SEOPCT 

SGET42: MOV 
BEQ 
RESET 


SERRPC 

SERFLG 

.MEPASS 

.MCSRX 

.XCSR 

.MVECX 

,XVEC 

SPASS 

.MPASSX 

-XPASS 

SPASS 

.MERRX 

.XERR 

STIMES 

SPASS 

#100000. SPASS 
(PC) + 

1 

SDOAGN 

<pc)*,a<pc>* 

i 

a#42.R0 

SDOAGN 



SENDAD: 

SDOAGN: 

JSR 

NOP 

NO P 

NOP 

JMP 

PC.(RO) 

a (pc)+ 


SRTNAD: 

XCSR: 

.WORD 

1 

XBEGIN 

002 

XVEC: 

.BYTE 

DZVCSR 

1 

6.2 

002 

XPASS: 

.BYTE 

DZVRIV 

1 

3.2 

002 

XERR: 

.BYTE 

SPASS 

1 

6.2 


SEO 0035 



1 CVDZC-B MACY11 

300(1063) 10-AU6-81 
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K 3 


CVDZCB. 

PI 1 10- AUG-81 

1C: 56 

END OF 

PASS ROUTINE 

SEO 0036 1 

(2) 

002736 

006 

002 


•BYTE 

6.2 


(2) 

002740 

001256 



SERTTL 



vl ) 
(1) 





; CONVERT DECIMAL ASCII STRING TO OCTAL 


(1) 

002742 

011605 


.PARMD: 

MOV 

(SPJ.R5 

I 

(1) 

002744 

012537 

003126 


MOV 

(R5H.6S 

1 

(1) 

002750 

012537 

003130 


MOV 

CR5H.7S 


(1) 

002754 

012537 

003132 


MOV 

(R5H.8S 


(1) 

002760 

112537 

003134 


HOVB 

(R5H.9S 


(1/ 

002764 

112537 

003135 


MOVB 

(R5J+.10S 


(1) 

002770 

010516 



MOV 

R5.(SP) 


(1) 

002772 

005005 


Zt: 

CLR 

R5 


(1) 

002774 

012704 

007616 


MOV 

#IN8UF.R4 


(1) 


122714 

000015 


CMP8 

#15. (R4) 


(1) 


001424 



BEQ 

3$ 


(1) 

003006 

121427 

000060 

IS: 

CMP8 

(R4) ,#’0 


(1) 

003012 

002421 



BLT 

3S 


(1) 

003014 

121427 

000071 


CMP8 

(R4) .#'9 


(1) 

003020 

003016 



BGT 

3$ 


(1) 

003022 

142714 

000060 


BICB 

#'0, (R4) 


(1) 

003026 

005002 



CLR 

R2 


(1) 


152402 



BISS 

(R4H.R2 


(1) 

003032 

060205 



ADD 

R2.R5 


(1) 

003034 

122714 

000015 


CMPB 

#15. (R4) 


(1) 

003040 

001410 



BEQ 

4$ 


(1) 

003042 

006305 



ASL 

R5 ;X2 


U> 

003044 

010502 



MOV 

R5.R2 ;SAVE X2 


(1) 

003046 

006305 



ASL 

R5 ;X4 


(1) 

003050 

006305 



ASL 

R5 ;X8 


(1) 

003052 

060205 



ADD 

R2.R5 .-TIMES 10 


(1) 

003054 

000754 



BR 

1$ 


(1) 

003056 

104404 


3$: 

1NSTER 



(1) 
/I \ 

003060 

000744 



BR 

2$ 


\ 1 / 
(1) 





.‘TEST 

TO SEE IF NUMBER IS WITHIN LIMITS 


(1J 

(1) 

003062 

020537 

003130 

4$: 

CMP 

R5.7S 


(1) 

003066 

101373 



BHI 

3$ 


(1) 

003070 

020537 

003126 


CMP 

R5.6S 


(1) 

003074 

103770 



BLO 

3$ 


(1) 

003076 

133705 

003134 


BITB 

9S.R5 


(1) 

003102 

001365 



BNE 

3$ 


(1) 





.•STORE 

NUMBER AT SPECIFIED ADDRESS 


(1) 








(1) 

003104 

013704 

003132 


MOV 

8S.R4 


(1) 

003110 

010524 


5$: 

MOV 

R5.CR4H 


(1) 

003112 

062705 

000002 


ADD 

#2,R5 


(1) 

003116 

105337 

003135 


DECS 

ioi 


(1) 

003122 

001372 



BNE 

5$ 


(1) 

003124 

000002 



RTI 



(1) 

003126 

000000 


6$: 

0 



(1) 

003130 

00-0000 


7$: 

0 



(1) 

003132 

000000 


8$: 

0 



(1) 

003134 

000 


9$: 

.BYTE 

0 


(1) 

f 

003135 

000 


10$: 

.BYTE 

0 
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SEQ 0037 


(1) 

(1) 

(1) 


; CHECK FOR FREEZE ON CURRENT DATA 


V 1 / 
(1) 

003136 

032777 

001000 

176140 

.SC0P1 : 

BIT 

#SW09,aSWR 

(1) 

003144 

001405 




BEQ 

1$ 

(1) 

003146 

005737 

001364 



TST 

LOCK 

(1) 

003152 

001402 




BEQ 

1$ 

(1) 

003154 

013716 

0U1364 



MOV 

LOCK, (SP> 

(1) 

003160 

000002 



1$: 

RTI 


it) 

(1) 

003162 

032777 

010000 

176114 

.TYPE: 

BIT 

#SW12.aSWR 

(1) 

003170 

001403 




BEQ 

(TYPE 

(1) 

003172 

062716 

000002 



ADD 

#2,(SP) 

(1) 

0031 76 

000002 




RTI 


(2) 





.SBTTL 

TYPE 

ROUTINE 


IS SW09=1 (SET) ? 

BR IF NOT SET. 

IS THERE A TIGHT LOOP SPECIFIED? 

IF NO, RETURN 

IF YES, GOTO THE ADDRESS IN LOCK. 

GO BACK. 

INHIBIT ALL PRINTOUT?? 

IF NOT, GO TYPE 

SKIP OVER MESSAGE POINTER 

RETURN TO WHERE PROCEDURE WAS INVOKED 


( 2 ) 

(3) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 


003200 

003204 

003206 

003210 

003212 

003214 

003220 

003226 

003230 

003236 

003240 

003244 

003250 

003252 

003260 

005262 

003264 

003266 

003270 

003272 

003276 

003300 

003304 

003306 


105737 

100002 

000000 

000430 

010046 

017600 

122737 

001011 

132737 

001405 

010037 

004737 

000000 

132737 

001003 

112046 

001005 

005726 

012600 

062716 

000002 

122716 

001430 

122716 




;* 

TYPE 



;*0R 




;* 

TYPE 



;» 

;* 

MESADR 

001323 


(TYPE: 

TST8 




BPL 




HALT 




BR 



1$: 

MOV 

000002 



MOV 

000001 

001140 


CMP8 




BNE 

000100 

001141 


BITS 




BEQ 

003250 



MOV 

003542 



JSR 


•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 

•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

•N0TE1 : SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

•N0TE2: (FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

•N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

* 

•CALL: 

*1) USING A TRAP INSTRUCTION , 

; ; ME SADR IS FIRST ADDRESS OF AN ASCIZ STRING 


.ME SADR 


61$: 


.WORD 


oooc;? ooii4i 

62$: 

BITB 

BNE 


2$: 

MOVB 

BNE 

TST 


60$: 

MOV 

000002 

3$: 

ADD 

RTI 

000011 

4$: 

CMPB 

BEQ 

000200 


CMPB 


$TPFLG 

1 $ 

3$ 

RO.-(SP) 
i2(SP) ,R0 
#APTENV,$ENV 
62$ 

#APT SPOOL, $ENVH 
62$ 

R0,61$ 

PC,$ATY3 

#APTCSUP.$ENVM 

60$ 

<ROH,-(SP> 

4$ 

<SP) + 

<SP) +.R0 
#2,(SP) 

#HT, <SP) 

8 $ 

rfCRLF.(SP) 


;IS THERE A TERMINAL? 

;BR IF YES 

;HALT HERE IF NO TERMINAL 

.•LEAVE 

.SAVE RO 

;6ET ADDRESS OF ASCIZ STRING 
.•RUNNING IN APT MODE 
;NO,GO CHECK FOR APT CONSOLE 
; SPOOL MESSAGE TO APT 
;;NO,GO CHECK FOR CONSOLE 
;; SETUP MESSAGE ADDRESS FOR APT 
;; SPOOL MESSAGE TO APT 
; .-MESSAGE ADDRESS 
;;APT CONSOLE SUPPRESSED 
;; YES, SKIP TYPE OUT 

.-.PUSH CHARACTER TO BE TYPED ONTO STACK 
;;8R IF IT ISN’T THE TERMINATOR 
; ; IF TERMINATOR POP IT OFF THE STACK 
; .-RESTORE RO 
; .ADJUST RETURN PC 
; .RETURN 
; .-BRANCH IF <HT> 

; .-BRANCH IF NOT <CRLF> 


H 3 



SEQ 0038 


POP <CR><LF> EQUIV 
TYPE A CR AND LF 

CLEAR CHARACTER COUNT 
GET NEXT CHARACTER 
GO TYPE THIS CHARACTER 
IS IT TIME FOR FILLER CHARS.? 

IF NO GO GET NEXT CHAR. 

GET # OF FILLER CHARS. NEEDED 
AND THE NULL CHAR. 

DOES A NULL NEED TO BE TYPED? 

BR IF NO-GO POP THE NULL OFF OF STACK 

GO TYPE A NULL 

DO NOT COUNT AS A COUNT 

LOOP 


; REPLACE TAB WITH SPACE 
.-TYPE A SPACE 
.-BRANCH IF NOT AT 
;TAB STOP 

;POP SPACE OFF STACK 
;GET NEXT CHARACTER 

;CHAR IN KYBD BUFFER? 

;BR IF NOT 
.-GET CHAR 

.•STRIP EXTRANEOUS BITS 
;UAS CHAR XOFF 
;BR IF NOT 

,‘UAIT FOR CHAR 

.-GET CHAR 
.•STRIP IT 
;UAS IT XON? 

;BR IF NOT 

.-FIX STACK 

.-WAIT UNTIL PRINTER IS READY 

;LOAD CHAR TO BE TYPED INTO DATA REG. 
;IS CHARACTER A CARRIAGE RETURN? 
.•BRANCH IF NO 

; YES— CLEAR CHARACTER COUNT 
.-EXIT 

;IS CHARACTER A LINE FEED? 

.‘BRANCH IF YES 
.-COUNT THE CHARACTER 
.•CHARACTER COUNT STORAGE 


MJD001 

MJD001 

MJD001 

HJD001 

MJD001 

HJD001 

HJD001 

NJD001 

MJD001 

MJD001 

MJD001 

MJD001 

MJD001 

MJD001 

MJD001 

MJD001 


.MJD001 


N 3 
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SEO 0039 


(?) 







(3) 

(2) 

003534 

112737 

000001 

004000 

lATYl : 

MOVB 

(2) 

003542 

112737 

000001 

003776 

SATY3: 

MOVB 

(2) 

(2) 

003550 

003552 

000403 

112737 

000001 

004000 

SATY4: 

BR 

MOVB 

(2) 

003560 




SATYC : 


(4) 

003560 

010046 




MOV 

(4) 

003562 

010146 




MOV 

(2) 

003564 

105737 

003776 



TSTB 

(2) 

003570 

001450 




BEQ 

(2) 

003572 

122737 

000001 

001140 


CMPB 

(2) 


001031 




BNE 

(2) 

003602 

132737 

000100 

001141 


BITB 

(2) 

003610 

001425 




BEQ 

(2) 

003612 

017600 

000004 



MOV 

(2) 

003616 

062766 

000002 

000004 


ADD 

(2) 

003624 

005737 

001120 


IS: 

TST 

(2) 

003630 

001375 




BNE 

(2) 

003632 

010037 

001134 



MOV 

(2) 

003636 

105720 



2S: 

TSTB 

(2) 

003640 

001376 




BNE 

(2) 

003642 

163700 

001134 



SUB 

(2) 

003646 

006200 




ASR 

(2) 

003650 

010037 

001136 



MOV 

(2) 

003654 

012737 

000004 

001120 


MOV 

(2) 

003662 

000413 




BR 

(2) 

003664 

017637 

000004 

003710 

3$: 

MOV 

(2) 

003672 

062766 

000002 

000004 


ADD 

(4) 

003700 

013746 

177776 



MOV 

(2) 

003704 

004737 

003200 



JSR 


(?> 003712 

(2) 003712 
(2) 003716 
(2) 003720 
(2) 003724 
<2> 003726 
(2) 003732 
(2) 003734 
(2) 003742 
(2) 003750 
(2) 003754 
“*3760 
3764 
.. ..3770 

(4) 003772 
(2) 003774 
(2) 003776 
(2) 003777 

<2> 004000 


105737 

001416 

005737 

001413 

005737 

001375 

017637 

062766 

005237 

105037 

105037 

105037 

012601 

012600 


004000 

001140 

001120 

000004 

000002 

001120 

004000 

003777 

003776 


CC1122 

00:004 


TST8 

8EQ 

TST 

BEQ 

TST 

BNE 

MOV 

ADD 

INC 

CLRB 

CLR8 

CLRB 

MOV 

MOV 


#1, SFFLG 
#1 .SMFLG 
SATYC 
#1. SFFLG 

RO.-(SP) 

RI.-(SP) 

IMF LG 

5$ 

fAPTENV.SENV 

3$ 

#AP T SPOOL , SENVM 
3$ 

i4(SP).R0 

#2,4(SP) 

SMSGTYPE 

1 $ 

RO.SMSGAD 
(R0> ♦ 

2 $ 

SMSGAO.RO 

RO 

RO.SMSGLGT 
#4. SMSGTYPE 

5S 

84(SP) ,4S 
#2.4 (SP> 
177776.-<SP> 
PC.STYPE 
0 

SFFLG 

12S 

SENV 

12S 

SMSGTYPE 

IIS 

B4(SP) .SFATAL 

#2.4(SP> 

SMSGTYPE 

SFFL6 

SLFLG 

SMFLG 

<SP)*.R1 

<SP) *.R0 


;T0 REPORT FATAL ERROR 
;T0 TYPE A MESSAGE 

;T0 ONLY REPORT FATAL ERROR 

.‘PUSH RO ON STACK 
.-PUSH R1 ON STACK 
.SHOULD TYPE A MESSAGE? 

• f C MAT • Dp 

‘OPERATING UNDER APT? 

‘IF NOT* BR 
; SHOULD* SPOOL MESSAGES? 

;IF NOT: BR 
.GET MESSAGE ADDR. 

;;BUMP RETURN ADDR. 

.’SEE IF DONE W/ LAST XMISSION? 
;IF NOT: WAIT 
.’PUT ADDR IN MAILBOX 
.•FIND END OF MESSAGE 

;SUB START OF MESSAGE 
.‘GET MESSAGE LNGTH IN WORDS 
.-PUT LENGTH IN MAILBOX 
.‘TELL APT TO TAKE MSG. 

.’PUT MSG ADDR IN JSR LINKAGE 
;;8UMP RETURN ADDRESS 
.•PUSH 177776 ON STACK 
.-CALL TYPE MACRO 


SHOULD REPORT FATAL ERROR? 
IF NOT: BR 
RUNNING UNDER APT? 

IF NOT* BR 

FINISHED LAST MESSAGE? 

IF NOT: WAIT 
GET ERROR # 

;;8UMP RETURN ADDR. 
TELL APT TO TAKE ERROR 
CLEAR FATAL FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO R1 
POP STACK INTO RO 


000 

SMFLG: .BYTE 

0 

;;MESSG. FLAG j 


SLFLG: .BYTE 

0 

;;LOG FLAG 1 

88 ? 

SFFLG: .BYTE 
.EVEN 

0 

; .’FATAL FLAG j 

I 

200 

APTSI2E*200 



>001 

APTENV=001 



100 

APT SPOOL =100 



>040 

APTCSUP=040 


| 


B 4 
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SEQ 0040 


004002 

004004 

004006 

004014 

004022 

004024 

004026 

004032 

004036 

004042 

004044 

004050 

004054 

004060 

004062 

004066 

004070 

004076 

004100 

004102 

004104 

004106 

004110 

004112 

004116 

004120 

004122 

004124 


010346 

010446 

017637 

062766 

104402 

000000 

012704 

012703 

105777 

100375 

117714 

142714 

122427 

001417 

105777 

100375 

017777 

005303 

001356 

012604 

012603 

010346 

010446 

104402 

000741 

012604 

012603 

000002 


000004 004024 
000002 000004 


007616 

000007 

175246 

175242 

000200 

000015 

175226 

175216 175220 


001356 


.•STRING 

INPUT ROUTift 

# 

. INSTR: MOV 

R3.-(SP) 

MOV 

R4,-(SP) 

MOV 

34(SP) , .MSG 

ADD 

#2. 4(SP) 

.INST1 : TYPE 


.MSG: 0 


MOV 

#INBUF,R4 

MOV 

#7, R3 

1$: TSTB 

i$TKS 

BPL 

1$ 

MOVB 

B$TKB,(R4) 

BICB 

#2 00, (R4) 

CMP8 

(R4)*.#15 

BE <4 

INSTR2 

2$: TSTB 

a$TPS 

BPL 

2$ 

MOV 

aSTKB.a$TPB 

DEC 

R3 

BNE 

1$ 

MOV 

<SP)*,R4 

MOV 

(SP)+,R3 

.INSTE: MOV 

R3,-(SP) 

MOV 

R4, -(SP) 

TYPE 

,$QUES 

BR 

.INST1 

INSTR2: MOV 

(SP)+,R4 

MOV 

(SP)*, R3 


SAVE R3 ON STACK 
SAVE R4 ON STACK 

GET THE ADDRESS OF THE MESSAGE TO BE PRINTED 

POINT TO INSTRUCTION AFTER ADDRESS POINTER 

PRINT THE MESSAGE 

MESSAGE IS POINTED TO FROM HERE 

POINT R4 TO THE INPUT BUFFER 

SET THE MAXIMUM NUMBER OF CHARACTERS ALLOWED 

HAS A CHARACTER BEEN RECEIVED? 

IF NO, KEEP WAITING FOR IT 
IF YES, SAVE IT IN THE INPUT BUFFER 
KEEP ONLY THE 7-BIT ASCII INFORMATION 
IS THIS CHARACTER A LINE FEED? 

IF SO, TERMINATE THE INPUT SEQUENCE 

IF NOT, CHECK TO SEE IF THE CHARACTER CAN PRINT 

IF WE CAN'T, WAIT UNTIL WE CAN 

ECHO THE CHARACTER BACK 

REDUCE THE NUMBER OF CHARACTERS RECEIVED 

IF WE DON'T HAVE 7, GO GET SOME MORE 

IF WE HAVE 7. RESTORE R4 

RESTORE R3 

SAVE R3 ON THE STACK 

SAVE R4 ON THE STACK 

PRINT A QUESTION MARK... WHAT'S GOING ON? 

GO PRINT THE MESSAGE AGAIN 
RESTORE R4 
RESTORE R3 

RETURN TO THE MAIN PROCEDURE 


.•CONVERT ASCII STRING TO OCTAL 


<1> 

(1) 

004126 

010546 


.PARAM: 

MOV 

(1) 

004130 

010446 



MOV 

;i) 

004132 

016605 

■ 


NOV 

(i) 

004136 

012537 

004316 


MOV 

(i) 

004142 

012537 

004320 


MOV 

(i) 

004146 

012537 

004322 


MOV 

(i) 

004152 

112537 

004324 


MOVB 

(i) 

004156 

112537 

004325 


MOVB 

(i) 

004162 

010566 


PAR AMI : 

MOV 

(i) 

004166 

005005 


CLR 

(i) 

004170 

012704 

007616 


MOV 

(i) 

004174 

122714 

000015 


CM PB 


004200 

004202 

004206 

004210 

004214 

004216 

004222 

004224 


001420 

121427 

002415 

121427 

003012 

142714 

152405 

122714 


000060 

000067 

000060 

000015 


BEO 

CMP8 

BLT 

CMP8 

BGT 

BICB 

BISS 

CMP8 


R5,-(SP) 

R4,-(SP) 

4<SP).R5 

(R5)+,L0LIM 

(R5)+,HILIM 

(R5H.DEVADR 

(R5)*,L08ITS 

<R5)*,ADRCNT 

R5,4(SP> 

R5 

#INBUF ,R4 
#15, (R4) 
PARERR 
(R4) ,#60 
PARERR 
<R4>,#6 7 
PARERR 
#60. <R4) 
<R4)*,R5 
#15, (R4) 


SAVE R5 ON THE STACK 

SAVE R4 ON THE STACK 

GET THE SETUP INFORMATION POINTER 

SET THE LOW l tHIT FOR THE INPUT 

SET THE HIGH IMIT FOR THE INPUT 

SAVE THE ADDRESS WHERE THE RESULT WILL BE STORED 

GET THE MASK OF THE INCORRECT BITS 

GET THE COUNT OF ITEMS TO BE STORED 

POINT TO WHERE MAIN LINE PROGRAM WILL RESUME 

INITIALIZE THE ASCII TO OCTAL RESULT WORD 

POINT TO THE INPUT BUFFER 

IS THIS CHARACTER A CARRIAGE RETURN? 

IF SO, PRINT THE HESSA6E AGAIN 

IS THfs CHARACTER BELOW THE NUMERIC RANGE? 

IF SO. GO PRINT THE MESSAGE AGAIN 
IS THfs CHARACTER ABOVE THE NUMERIC RANGE? 

IF SO, GO PRINT THE MESSAGE AGAIN 
ISOLAfE THE NUMBER THE CHARACTER REPRESENTS 
CONCATENATE THESE BITS TO THE ALREADY EXISTING STRING 
IS THE NEXT CHARACTER A CARRIAGE RETURN? 


c 


4 
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SEO 0041 


( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

(1) 

( 1 ) 

( 1 ) 

(1) 


004230 

004232 

004234 

004236 

004240 

004242 

004244 


001406 

006305 

006305 

006305 

000760 

104404 

000750 


BEQ 

ASl 

ASL 

ASL 


LIMITS 

R5 

R5 

R5 


BR 1$ 

PARERR: INSTER 

BR PARAM1 


IF SO, GO SEE IF NUMBER IS WITHIN LIMITS 

CLEAR BiT POSITION 0, MOVE EXISTING STRING TO LEFT 

CLEAR POSITION 1, MOVE STRING TO LEFT AGAIN 

MOVE THE STRING ONE MORE TIME TO MAKE ROOM FOR 

NEXT THREE BITS 

GO GET THE NEXT CHARACTER 

THERE WAS AN ERROR... GO PRINT MESSAGE AGAI.J 

TRY GETTING THE PARAMETERS AGAIN 


;TEST TO SEE IF NUMBER IS WITHIN LIMITS 


\ 1 / 
(1) 

004246 

020537 

004320 

LIMITS: 

CMP 

R5. HILIM 

(1) 

004252 

101373 



BHI 

PARERR 

(1) 

004254 

020537 

004316 


CMP 

R5, LOLIM 

(1) 

004260 

103770 



BLO 

PARERR 

(1) 

004262 

133705 

004324 


BITS 

L0BITS.R5 

(1) 

004266 

001365 



8NE 

PARERR 

(1 ) 
(1) 





.'STORE 

NUMBER AT 

( 1 ) 
(1) 

004270 

013704 

004322 


MOV 

DEVADR. R4 

(1) 

004274 

010524 


IS: 

MOV 

R5.(R4)* 

vl) 

004276 

062705 

000002 


ADD 

#2.R 5 

(1) 

0043 02 

105337 

004325 


DECB 

ADRCNT 

(1) 

004306 

001372 



BNE 

IS 

(1) 

004310 

012604 



MOV 

(SPH.R4 

(1) 

004312 

012605 



MOV 

(SPI+.R5 

(1) 

004314 

000002 



RTI 


(1) 







(1) 

004316 

000000 


LOLIM: 

0 


(1) 

004320 

000000 


HILIM: 

0 


(1) 

004322 

000000 


DEVADR : 

0 


(1) 

004324 

000 


L OBITS: 

.BYTE 

0 

(1) 

004325 

000 


ADRCNT: 

.BYTE 

0 


DOES RESULT EXCEED ITS MAXIMUM CORRECT VALUE? 
IF YES, GO PRINT THE MESSAGE AGAIN 
IS THE RESULT LOWER THAN ALLOWED? 

IF YES, GO PRINT THE MESSAGE AGAIN 
ARE AN V INCORRECT BITS SET IN THE RESULT? 

IF SO. GO PRINT THE MESSAGE AGAIN 


POINT TO THE LOCATION WHERE THE RESULT WILL BE STORED 
STORE THE RESULT 
CALCULATE THE NEXT DATUM 

REDUCE COUNT OF STORED RESULTS. IS IT EXCEEDED? 

IF NOT, GO STORE THE NEXT DATl* 

RESTORE R4 
RESTORE R5 

RETURN TO THE MAIN PROGRAM 

LOWEST ACCEPTABLE VALUE 
HIGHEST ACCEPTABLE 

LOCATION WHERE RESULT WILL BE STORED 

INCORRECT BITS MASK 

COUNT OF ITEMS TO BE STORED 


(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 


;SAVE PC OF TEST THAT FAILED AND R0-R5 


004326 

016637 

000004 001404 

. SAV05 : MOV 

4(SP),SAVPC .'SAVE R7 (PI 




.•SAVE R0-R5 


004334 

010537 

001340 

SV05: MOV 

R5.SREG5 

SAVE R5 

004340 

010437 

001336 

MOV 

R4.SREG4 

SAVE R4 

004344 

010337 

001334 

MOV 

R3.SREG3 

SAVE R3 

004350 

010237 

001332 

MOV 

R2.SREG2 

SAVE R2 

004354 

010137 

001330 

MOV 

R1.SREG1 

SAVE R1 

004360 

010037 

001326 

NOV 

RO.SREGO 

SAVE RO 

004364 

000002 


RTI 


LEAVE. 




.RESTORE R0-R5 


004366 

013700 

001326 

.RES05: MOV 

SREGO.RO 

RESTORE RO 

004372 

013701 

001330 

MOV 

SREG1.R1 

RESTORE R1 

004376 

013702 

001332 

MOV 

SREG2.R2 

RESTORE R2 


D 4 
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SEO 0042 


( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
(1) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
(1) 
(1) 
( 1 ) 
'1> 
(1) 
(1) 
(1) 
( 1 ) 
(1) 
( 1 ) 
( 1 ) 
( 1 ) 
< 1 > 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
(1) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
Cl) 
( 1 ) 
(1) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
Cl) 
( 1 ) 
( 1 ) 


004402 

004406 

004412 

004416 


004420 

004424 

004426 

004430 

004432 

004434 

004436 

004442 

004450 

004454 

004456 

004460 

004462 

004466 

004470 

004474 

004500 

004502 

004504 

004506 

004510 

004512 

004514 

004520 

004522 

004526 

004530 

004532 

004534 

004540 

004542 

004544 

004546 

004552 

004556 

004560 

004562 

004564 

004566 

004570 

004572 

004574 

004576 

004577 


000002 


104402 
010046 
010146 
010346 
010446 
010546 
01 7601 
062766 
012137 
112105 
112100 
013104 
110537 
010403 
042703 
062703 
110346 
006004 
006204 
006204 
005305 

001365 
012703 
112623 
105337 
001374 
105700 
001404 
112723 
105300 
001374 
105013 
104402 
005337 
001336 
012605 
012604 
012603 
012601 
012600 
000002 
000000 
000 
00 0 


001334 

MOV 

SREG3.R3 

.RESTORE R3 

001336 

MOV 

SREG4.R4 

.RESTORE R4 

001340 

MOV 

JRE65.R5 

.•RESTORE R5 


RT1 


.’LEAVE 


.•CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


001357 

. CONVR : 

• 

TYPE 

.SCRLF 

.CNVRT: 

MOV 

RO.-(SP) 


MOV 

RI.-(SP) 



my 

R3.-(SP) 



MOV 

R4.-CSP) 

000012 


MOV 

MOV 

R5.-TSP) 

812(SP).R1 

000002 000012 


ADD 

#2.12(SP) 

(R1)*.WRDCNT 

004574 


MOV 

1$: 

Move 

(R1)*.R5 


MOVB 

(R1)*,R0 



MOV 

a(R1)*.R4 

004576 


MOVB 

R5. CHRCNT 

3$: 

MOV 

R4.R3 , 

177770 


BIC 

#*C<7>.R3 

J060.R3 

000060 


ADD 


MOVB 

R3. -(SP) 



RQH 

R4 



ASR 

R4 



ASR 

R4 



DEC 

R5 



BNE 

3$ 

007722 


MOV 

#MDATA,R3 

4$: 

MOVB 

(SP)*, (R3)* 

004576 


DECS 

CHRCNT 


BNE 

4$ 



TST8 

RO 



BEQ 

6$ 

000040 

5$: 

MOVB 

#040. (R3)* 


DECS 

RO 



BNE 

5$ 


6$: 

CLRB 

(R3) 


007722 

004574 


URDCNT : 


TYPE 
DEC 
BNE 
NOV 
MOV 
MOV 
MOV 
MOV 
RT1 
0 


.MDATA 
WRDCNT 
1$ 

(SP)*,R5 
<SP>*. R4 
(SP) *,R3 
(SP)*.R1 
(SP)*, RO 


004600 000000 


CHRCNT: .BYTE 
SPACNT : .BYTE 

BINWRD: 0 


PRINT A CARRIAGE RETURN 

SAVE RO 

SAVE R1 

SAVE R3 

SAVE R4 

SAVE R5 

PLACE THE ADDRESS OF THE ARGUMENTS IN R1 

POINT TO WHERE MAIN PROGRAM WILL RESUME 

GET NUMBER OF WORDS TO BE PRINTED 

GET THE NUMBER OF CHARACTERS TO BE PRINTED 

GET THE NUMBER OF SPACES TO PRINT 

COPY THE WORD TO BE CONVERTED 

COPY THE CHARACTER COUNT 

COPY THE ARGUMENT WORD AGAIN 

ISOLATE THREE BITS TO BE TREATED AS A CHARACTER 

MAKE AN ASCII CHARACTER OUT OF THEM 

SAVE THAT CHARACTER 

MOVE THE NEXT THREE BITS INTO PUCE 

MOVE THEM A6AIN 

AND FINALLY A THIRD TIME 

REDUCE CHARACTER COUNT .ARE ALL CHARACTERS 

BUILT? 

IF NO. 60 BUILD THE NEXT ONE. 

NOW POINT TO WHERE NUMBER WILL BE PRINTED FROM 
STORE THE CHARACTER. STARTING WITH THE MOST 
REDUCE COUNT. ARE ALL CHARACTERS TRANSFERRED? 

IF NO. 60 TRANSFER ANOTHER 
ARE ANY SPACES TO BE PRINTED? 

IF NO. DON'T SET UP ANY 

ADD A SPACE TO THE OUTPUT BUFFER 

REDUCE THE COUNT. SHOULD WE PRINT MORE? 

IF YES. GO ADD ANOTHER SPACE 

TERMINATE THE OUTPUT BUFFER WITH A ZERO 

PRINT THE STRING WE JUST BUILT 

REDUCE THE WORD COUNT. ARE ANY MORE WORDS LEFT? 

IF YES. GO CONVERT THEM 

RESTORE R5 

RESTORE R4 

RESTORE R3 

RESTORE R1 

RESTORE RO 

RETURN TO THE MAIN PROGRAM 

NUMBER OF CHARACTERS TO PRINT 
NUMBER OF SPACES TO PRINT 



E 4 
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SEQ 0043 


( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

('.; 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 


004624 

004624 

004632 

004640 

004642 


004644 

004646 

004654 

004656 

0046 c 6 

004660 

004664 

004666 

004670 

004672 

004674 


TRAP DISPATCH SERVICE 
ARGUMENT OF TRAP IS EXTRACTED 
AND USED AS OFFSET TO OBTAIN POINTER 
TO SELECTED SUBROUTINE 


010046 


. TRPSR : MOV 

016600 

000002 

MOV 

005740 


TST 

111000 


MOVB 

006300 


ASL 

016000 

001742 

MOV 

000200 


"TS 


RO.-(SP) 

2 (SP) .RO 
-(RO) 

(ROMO 

RO 

.TRPTAB(RO) ,R0 
RO 


DEVICE CLEAR ROUTINE 
ISSUE A DEVICE CLEAR 


SAVE RO. USE RO TO FIND TRAP ROUTINE 
GET TRAP ADDRESS 
GET TRAP 

GET RIGHT BYTE OF TRAP(TRAP OFFSET) 

POSITION OFFSET FOR TABLE INDEXING 
PLACE INDEXED ADDRESS OF TABLE IN RO 
TRANSFER TO THAT ADDRESS AND RESTORE OLD RO 


052777 000020 175156 
032777 000020 175150 
001374 
000002 


104413 

153777 001424 175134 
000002 


010046 

013700 004674 
005300 
001376 
012600 
000002 
000001 


.DEVICE. CLR: 


.-SET DCLR 

BIS 

#DCLR,iDZVCSR 

1$: BIT 

fDCLR.BDZVCSR 

.'DID IT CLEAR? 

BNE 

IS 

;BR IF NO 

RTI 

;EXIT ROUTINE 


.'ROUTINE TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR 


.DCLASM:DEVICE.CLR 

BISB HNTFLG.8DZVCSR 
RTI 


.DELAY: 


1 $: 


DLYCNT: 


NOV 

MOV 

DEC 

BNE 

MOV 

RTI 

.WORD 


RO.-(SP) 
DLYCNT. RO 
RO 

1 $ 

(SP)MO 

1 


.•ISSUE A DEVICE CLEAR „ 

.'LOAD THE MAINTENANCE BIT IF IT IS I MODE 
RETURN TO CALLING ROUTINE 


SAVE RO 
SET COUNT 
DELAY 


RESTORE RO 
LEAVE ROUTINE 

PATCHABLE LOC FOR MORE TIME 


.•ADVANCE TO NEXT TEST HANDLER 


004676 013716 001362 
004702 005037 001364 
004706 000002 


004710 106302 
004712 032702 000020 
004716 001402 
004720 022626 
004722 104400 
004724 000002 


.ADVANCE :MOV 
CLR 
RTI 


NEXT, (SP) 
LOCK 


; CRUNCH STACK UITH ADDRESS OF NEXT TEST 

.'RESET TIGHT LOOP ADDRESS 

.•CHECK TO SEE IF OLD TEST GETS REPEATED 


.SHIFT: 


1$: 


ROUTINE TO SHIFT LINE POINTER 
AND SWITCH TESTS IF NECESSARY 


ASL8 

BIT 

BEQ 

P0P2SP 

ADVANCE 

RTI 


R 2 

#81 T4.R2 
IS 


POINT TO THE NEXT LINE 

HAVE WE PASSED ALL LINE POINTERS? 

IF NOT, RETURN TO THE TEST 
REMOVE THE TRAP CALL FROM THE STACK 
GO TO THE NEXT TEST 
RETURN TO THE PRESENT TEST 


F 4 


-8 MACY11 306(1063) 1 O-AUG-81 11:15 PA6E 21-30 

: B?P11 10-AUG-81 10:56 APT COMMUNICATIONS ROUTINE 


.-LINE PARAMETER REGISTER SETUP ROUTINE 


) 004732 
) 004736 
) 004742 

) 004746 
) 004750 
) 004752 
) 004756 


010146 
01 0246 

013701 001370 

012702 000001 
010177 175052 
005201 


) 004762 
) 004764 


) 004766 
) 004770 
) 004774 
) 004776 
) 005002 
) 005004 

) 005006 


) 005010 
) 005014 
) 005022 
) 005024 

) 005030 

> 005032 
) 005040 
) 005046 
) 005050 
) 005054 
) 005056 
) 005062 
) 005066 
) 005070 
) 005072 
) 005076 
) 005100 
) 005104 
) 005106 
) 005110 
) 005112 
) 005116 
) 005122 
) 005126 

> 005132 
) 005136 
I) 005142 
I ) 005144 


106302 

032702 000020 
001771 
012602 
012601 
000002 


010046 

012700 001426 
005020 

022700 001446 
001374 
012600 
000002 


004737 

032777 

001406 

105777 

100003 

112777 

032777 

001113 

021637 

001404 

011637 

105037 

104407 

011605 

162705 

011504 

110437 

006304 

061504 

006304 

042704 

062704 

012437 

012437 

011437 

105737 

001403 

005737 


.LPRSET.MOV 

MOV 


RI.-(SP) 

R2.-(SP> 

PAA.R1 

#1 ,R2 ; INIT. 

R1.8DZVLPR 
R1 
R2 

A8IT4.R2 

IS 

(SPJ+.R2 

<$P)*,R1 


.-SAVE CONTENTS OF R1 
.•SAVE CONTENTS OF R 2 
;MOVE DEFAULT PARAM. INTO R1 
FOR LINE 1 

.•LOAD PARAM. REGISTER 
.-SET R1 FOR NEXT LINE 
.-SET R2 FOR NEXT LINE 
.-ALL LINES DONE? 

;IF NO LOAD NEXT LINE 
.•RELOAD R2 
.•RELOAD R1 
.•RETURN 


.•ROUTINE TO ZERO DATA BUFFER 


.BUFSET.-MOV 

MOV 

IS: CLR 

CMP 
BNE 
MOV 
RTI 


005436 

010000 

174264 

000207 

020000 

001262 

001262 

001247 


000002 

001260 


177001 

011170 

005246 

005260 

005272 

001247 

005272 


174262 


174256 
174236 X8X: 


RO.-(SP) 

fTDO.RO 

<R0>+ 

#STOP,RO 

IS 

(SP>*.RO 


.•ERROR HANDLER 


SERROR: JSR 


BIT 

BEO 

TSTB 

BPL 

M0V8 

BIT 

BNE 

CMP 

BEO 

MOV 

CLR8 

SAV05 

MOV 

SUB 

MOV 

M0V8 

ASL 

ADD 

ASL 

BIC 

ADD 

MOV 

MOV 

MOV 

TSTB 

BEO 

TST 


PC.SERV.G 

#swi2.asuR 

XBX 

asrps 

XBX 

#207.aSTPB 

#swi3,aswR 

HALTS 

(SP).SERRPC 

IS 

(SP>. SERRPC 
SERF LG 

(SP) -R5 
#2.R 5 
(R5KR4 
R4.SITEMB 
R4 

(R5),R4 

R4 

#1 77001, R4 

#.ERRTAB.R4 

(R4I+.ERRMSG 

(R4)+,DATAHD 

{R4).DATA8P 

SERFLG 

TVPMSG 

DATABP 


SAVE CONTENTS OF RO 
SET RO TO TOP OF BUFFER 
CLEAR BUFFER LOCATION 
IS BUFFER ALL CLEARED 
IF NOT CLEAR NEXT LOCATION 
RELOAD RO 
RETURN 


FIND OUT IF <*G> WAS HIT 
BELL ON ERROR? 

BR IF NO BELL 
TTY READY. 

DON'T WAIT IF TTY NOT READY. 

PUSH A BELL AT THE TTY. 

DELETE ERROR PRINT OUT? 

BR IF NO PRINT OUT WANTED. 

WAS THIS ERROR FOUND LAST TIME? 

BR IF YES 

RECORD BEING HERE 

PREPARE HEADER 

SAVE ALL PROC REGISTERS 

GET THE PC OF ERROR 

GET ADDRESS OF TRAP CALL 

6ET ERROR INSTRUCTION 

COPY TEST NUMBER FOR APT HANDLING 

MULT BY TWO 

DOUBLE IT 

MULT AGAIN 

CLEAR JUNK 

GET POINTER 

GET ERROR MESSAGE 

GET DATA HEADRER 

GET DATA TABLE 

TYPE HEADER 

BR IF YES 

DOES DATA TABLE EXIST? 
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Cl) 005150 
(1) 005152 

(1) 005156 
(1) 005162 
(1) 005166 

(1) 005170 
(1) 005174 

(1) 005200 

(1) 005204 

(1) 005210 
(1) 005214 

(1) 005220 

(1) 005224 
(1) 005230 
(1) 005256 
(1) 005242 
(1) 005244 

(1) 005246 
(1) 005250 
(1) 005250 
(1) 005254 
(1) 005256 

(1) 005260 
(1) 005262 
(1) 005266 

(1) 005270 
(1) 005272 
(1) 005274 
(1) 005276 

(1) 005304 

(1) 005306 
(1) 005314 
(1) 005320 
(1) 005322 
(1) 005324 

(1) 005332 
(1) 005334 

(1) 005340 
(1) 005342 
(1) 005350 
(1) 005352 
(1) 005356 
(1) 005362 
(1) 005370 
(1) 005372 
(1) 005400 
(1) 005402 
(1) 005410 
(1) 005414 

(1) 005420 
(1) 005422 
(1) 005424 
(1) 005426 
(1) 005430 
CD 005432 
(1) 005434 


001044 

104402 

104402 

005737 

001402 

104402 

104402 

104412 

104402 

104412 

104402 

104412 

104402 

112737 

005737 

001402 

104402 

000000 

005737 

001402 

104402 

000000 

005737 

001402 

104411 

000000 

104410 

122737 

001007 

113737 

004737 

000000 

000777 

022737 

001403 

005777 

100004 

016677 

000000 

005237 

004737 

032777 

m ? 7 

001407 

013737 

012706 

000177 

000002 

000001 

006 

001404 

000001 

002 

001246 


001357 

001357 

001364 

006351 

006337 

005430 

006427 

005422 

006301 

002712 

001357 

177777 

005246 


005260 


005272 


001260 

003552 


001247 


001256 

005436 

000400 


TYPMSG: 


000001 001140 


ERRMSG: 

WTBS.FM 


DATAHD: 

TYPDAT: 


DATA8P: 

RESREG: 

HALTS: 


005320 


002676 000042 
173744 

000002 173736 


EXITER: 


173714 


002000 173704 
001362 001252 


BNE 

TYPE 

TYPE 

TST 

BEO 

TYPE 

TYPE 

CNVRT 

TYPE 

CNVRT 

TYPE 

CNVRT 

TYPE 

M0V8 

TST 

BEQ 

TYPE 

0 

TST 

BEO 

TYPE 

0 

TST 

BEQ 

CONVRT 

0 

RES05 

CMPB 

BNE 

H0V8 

JSR 

.WORD 

BR 

CMP 

BEQ 

TST 

BPL 

MOV 

HALT 

INC 

JSR 

BIT 

BNE 

BIT 

BEQ 

MOV 


001120 

IS: 

NOV 

173632 


JMP 


2S: 

RTI 


ERTABO: 

1 

002 

XTSTN: 

.BYTE 

SAVPC 

1 

002 


•BYTE 

STSTNM 


TYPDAT 

,$CRLF 

,$CRLF 

LOCK 

1$ 

.MASTEK 

.MTSTN 

,XTSTN 

.MERRPC 

.ERTABO 

,MCSRX 

.XCSR 

,$CRLF 

#-1 ,$ERFLG 

ERRMSG 

WTBS.FM 


DATAHD 

TYPDAT 


DATABP 

RESREG 


#APTENV.*ENV 

15$ 

SITEMB.5S 

PC.SATY4 

0 

10S 

#SENDAD,a#42 

20 $ 

asuR 

EXITER 

2(SP) ,8DISPLAY 

SERTTL 

PC.SERV.G 

fSWOMSWR 

1$ 

tswio.asuR 

2$ 

NEXT.SLPADR 

RSTACK.SP 

aSLPADR 


BR IF YES. 

TYPE A CARRIAGE RETURN 
AND TYPE ANOTHER 


SEQ 0045 


SHOW IT 
TYPE PC. 
SHOW IT 


GIVE A CR/LF 

NO MORE HEADER UNLESS NO DATA TABLE. 
IS THERE AN ERROR MESSAGE? 

BR IF NO. 

TYPE 

ERROR MESSAGE 

DATA HEADER? 

BR IF NO 
TYPE 

DATA HEADER 
DATA TABLE? 

BR IF NO. 

SHOW 

DATA TABLE 

RESTORE PROC REGISTERS 
IS APT RUNNING? 

SKIP APT CALL IF NOT 
COPY ERROR NUMBER 
CALL APT SERVICE 
ERROR NUMBER STUCK HERE 
LOCK UP HERE 

CHECK TO SEE IF IN ACT-11 MODE 
IF SO, HANDLE ACCORDINGLY 
HALT ON ERROR? 

BR IF NO HALT ON ERROR 

SHOW ERROR PC IN DATA DISPLAY 

HALT 

UPDATE ERROR COUNT 
FIND OUT IF *G HAS TYPED 
GOTO TOP OF TEST? 

BR IF YES 
GOTO NEXT TEST? 

do IF MO 

SETFOR NEXT TEST 
RESET SP 

GOTO SPECIFIED TEST 
RETURN 


H 4 
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SEQ 0046 



005436 

017746 

173650 


SERV.G: 

MOV 

8$TK8,-(SP) 
ABIT/, (SP) 
#7.(SP)* 


005442 

042716 

000200 



BIC 

» 1 / 

005446 

122726 

000007 



CMP8 

(1) 

005452 

001 076 




8NE 

6$ 

(1) 

005454 

032777 

004000 

173626 


BIT 

«4000,a$TKS 

(1) 

005462 

001365 




8NE 

SERV.G 

(1) 


005464 



GETSWR* 

• 

aSWR,90$ 

(1) 

005464 

017737 

173614 

005672 


MOV 

(1) 

005472 

104402 

005652 


1$: 

TYPE 

,89$ 

(1) 

005476 

104412 

005664 



CNVRT 

,88$ 

(1) 

(1) 

005502 

005506 

104402 

105037 

005674 

005700 



TYPE 

CLRB 

,91 $ 

$2$ 

(1) 

005512 

005077 

173566 



CLR 

aswR 

(1) 

005516 

105777 

173566 


3$: 

TSTB 

a$TKS 

(1) 

005522 

100375 




BPL 

3$ 

<1/ 

005524 

017746 

173562 



MOV 

a$TK8,-(SP) 

(1) 

005530 

042716 

000200 



BIC 

#BIT7,(S0) 

(1) 

005534 

122726 

000015 



CMP8 

#15, (SP)* 

(1) 

005540 

001433 



2$: 

BED 

4$ 

(1) 

005542 

105777 

173546 


TSTB 

a$TPS 

(1) 

005546 

100375 




BPL 

2$ 

(1) 

005550 

105237 

005700 



INC8 

92$ 

(1) 

005554 

014677 

173536 



MOV 

-(SP), a$TPB 

(1) 

005560 

000241 




CLC 


<1) 

005562 

0Cj177 

173516 



ROL 

aswR 

(1) 

005566 

006177 

173512 



ROL 

aswR 

(1) 

005572 

006177 

173506 



ROL 

aswR 

(1) 

005576 

103735 




BCS 

i$ 

(1) 

005600 

022627 

000060 



CMP 

(SP)+, #60 

(1) 

005604 

002732 




BLT 

1$ 

(1) 

005606 

026627 

177776 

000067 


CMP 

-2(SP).#67 

(1) 

005614 

003326 




BGT 

1$ 

(1) 

005616 

042746 

177770 



BIC 

#*C<7>,-(SP) 

(1) 

005622 

052677 

173456 



BIS 

(sp) +, aswR 

(1) 

005626 

000733 




BR 

3$ 

(1) 

005630 

105737 

005700 


4$: 

TSTB 

92$ 

(1) 

005634 

001003 




BNE 

5$ 

(1) 

005636 

013777 

005672 

173440 


MOV 

90$,aswR 

(1) 

005644 

104402 

001357 


5$: 

TYPE 

,$CRLF 

(1) 

005650 

000207 



6$: 

RTS 

PC 


(1) 

(1) 005652 


020200 051450 051127 


89$: 

.EVEN 


(1) 

005664 

000001 


88$: 

1 


(1) 

005666 

006 

005672 

000 


.BYTE 

6,0 

(1) 

005670 



90$ 

(1) 

005672 



90$: 

.WORD 

0 

(1) 

005674 

036457 

000057 

91$: 

.ASCIZ 

?/*/? 

(1) 

005700 

000 


92$: 

.BYTE 

0 


OTHERWISE, GET THE LAST CHARACTER TYPED 
STRIP PARITY(EIGHTH) BIT 
IS IT *G? 

IF NOT, IGNORE INPUT 
RX BUSY? 

BR IF YES 

; ; GPA 

SAVE (SUR). 

TYPE HEADER FOR 0! D SWITCH REGISTER 

TYPE THE NUMBER ITSELF 

AFTER HAVING CONVERTED IT TO ASCII 

CLEAR SWR CHANGE FLAG 

CLEAR THE SOFTWARE SWITCH REGISTER 

WAIT FOR DONE. 

CONTINUE WAITING FOR IT 

PUT THE CHARACTER ON THE STACK 

STRIP PARITY BIT 

IS IT THE CARRIAGE RETURN CHAR? 

IF SO, GO PRINT CRLF 

IS THE OUTPUT BUFFER AVAILABLE 

IF NOT, WAIT FOR IT TO BE READY 

INDICATE THAT THE SWR WAS CHANGED 

PLACE THE CHARACTER THERE (ECHO BACK) 

GET READY TO ROTATE 

HOVE THE EXISTING BITS OVER 

TO HAKE ROOT FOR THE INCOMING 

THREE BITS FROM THIS CHARACTER 

ERROR 

IS IT LOWER THAN 0? 

IF SO, GO ASK A6AIN 
IS IT HIGHER THAN 7? 

IF SO, GO ASK AGAIN 
ISOLATE INFORMATION BITS 
ADD THEM TO THE SWITCH REGISTER 
GO CHECK FOR THE NEXT CHARACTER 
HAS THE SWR BEEN CHANGED? 

IF YES GO TYPE CRLF 

IF NOT RESTORE SWR 

TYPE A CARRIAGE RETURN AND LINE FEED 

RETURN TO CALLING PROCEDURE 


.ASCIZ <200>? (SWR)*/? 


( 1 ) 

( 2 ) 

( 2 ) 

(3) 

( 2 ) 

(2) 005702 
(2) 005710 


005702 


012737 

012737 


.EVEN 

.S8TTL 


POWER DOWN AND UP ROUTINES 


006046 

000340 


000024 

000026 


: POWER DOWN ROUTINE 

iPWRDN: MOV #SILLUP,8#PWRVEC ;:SET FOR FAST UP 

MOV #340,8#PWRVEC*2 ;;PRI0:7 


I 4 
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SEO 0047 


(4) 005716 
(4) 005720 
(4) 005722 
(4) 005724 

(4) 005726 
(4) 005730 
(4) 005 732 
(2) 005736 
(2) 005742 

(2) 005750 
(2) 005752 


(21 

(3) 


010046 

010146 

010246 

010346 

010446 

010546 

017746 173346 
010637 006052 A 
012737 005754 000024 
000000 
000776 


( 2 ) 

(2) 005754 

(2) 005762 
(2) 005766 

(2) 00577? 
(2) 005776 

(4) 006000 
(4) 006004 

«.) 006006 
(4) 006010 

(4) 006012 

(4) 006014 

(4) 006016 

(2) 006020 
(2) 006026 
(2) 006034 

(2) 006036 
(2) 006040 
(2) 006042 
(2) 006044 

(2) 006046 
(2) 006050 

(2) 006052 
(2; 006054 

(2) 006117 

(2) 006143 
(2) 006157 

(2) 006226 
(2) 006252 
(2) 006301 
(2) 006307 

(2) 006315 

(2) 006326 
(2) 006337 

(2) 006351 
(2) 006354 
(2) 006427 

(2) 006434 

(2) 006462 
( 2 ) 

(2) 006524 

(2) 006526 
(2) 006530 


012737 
013706 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
01 2600 
012737 
012737 
104402 
006054 
012716 
002544 
000002 
000000 
000776 
000000 
050200 
200 
200 
200 
044600 
046200 
103 
126 
120 
051105 
124 
052 
051600 
120 
046600 
044600 

000002 

006 

001344 


006046 

006052 

006052 

006052 

173300 


005702 

000340 


000024 


000024 

000026 


051127 

047105 

052522 

051120 

051516 

041517 

051123 

041505 

051501 

047522 

051505 

000040 

052105 

035103 

050101 

046114 


003 


NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

HALT 

BR 


RO.-(SP) 
RI.-(SP) 
R2.-(SP) 
R3.- 


; ; PUSH 
; ; PUSH 
;;PUSH 

(SP) .-.PUSH 
R4,-(SP) ;;PUSH 
R5.-(SP) ;;PUSH 
aSWR.-(SP) ; ; PUSH 
SP, SSAVR6 ;;SAVE 
ASPWRUP.WPWRVEC ; ; SE T 


RO ON STACK 
R1 ON STACK 
R 2 ON STACK 
R3 ON STACK 
R4 ON STACK 
R5 ON STACK 
8SWR ON STACK 
SP 

UP VECTOR 


.-2 


;;HANG UP 


:POWER 

SPWRUP 


1 $: 


UP ROUTINE 


043040 

020104 

047116 

043517 

043125 

020113 

020072 

020072 

042523 

051522 

020124 

051440 

000040 

047440 

043505 


SPWRNG: 

SPWRAD: 

SILLUP: 

SSAVR6 : 
NPFAJL: 
NEPASS: 
HR: 

NERR2: 

NERR3: 

NLOCK: 

NCSRX: 

NVECX: 

NPASSX: 

NERRX: 

NTSTN: 

NASTEK: 

NNEW: 

NERRPC: 

XHEAD: 

NBADLN: 

.EVEN 

XSTATQ: 


NOV 
NOV 
CLR 
INC 
BNE 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
TYPE 
.WORD 
NOV 
.WORD 
RTI 
HALT 
BR 
0 

.ASCIZ 

.ASCJ2 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

2 

.BYTE 

STHP1 


#$ILLUP.d#PWRVEC ;;SET FOR FAST DOWN 


$SAVR6,SP 
SSAVR6 
SSAVR6 

1$ 

(SPH.aswR 
(SP)*.R5 
(SP) +.R4 
(SP)*.R3 
(SP)+,R2 
(SPH.R1 
(SP) +.R0 
#$PWRDN,a#PWRVEC 


;;GET SP 
;;UAIT LOOP FOR THE TT* 

;;WAIT FOR THE INC 
;;0F WORD 

;;POP STACK INTO 3SWR 
;;POP STACK INTO R5 
;;POP STACK INTO R4 
;;POP STACK INTO R3 
;;POP STACK INTO R 2 
; ;POP STACK INTO R1 
;;POP STACK INTO RO 

SET UP THE POWER DOWN VECTOR 


f#TNnwn # »»rwn»u\. # « ji. ■ v 

#340,a#PWRVEC+2 ;;PRI0:7 

; .-REPORT THE POWER FAILURE 
NPFAIL ; .-POWER FAIL NESSAGE POINTER 

(PC) +,(SP> .-.-RESTART AT RESTART 

RESTART ; .-RESTART ADDRESS 

.-.-THE POWER UP SEQUENCE WAS STARTED 
.-2 ;; BEFORE THE POWER DOWN WAS COMPLETE 

;;PUT THE SP HERE 

<200>/PWR FAILED. RESTART AT LAST TEST / 

?00>/END PASS CVDZC-6 / 

/RUNNING f 

200> /PROGRAM INDICATES NO DEVICES PRESENT./ 

?00>/ INSUFFICIENT DATA.'/ 

200>/L0CK ON SELECTED TEST/ 

/CSR: / 

/VEC: / 

/PASSES: / 

/ERRORS: / 

/TEST NO: / 

<200>/SET SWITCH REG TO DZV1VS DESIRED ACTIVE./ 

/PC * / 

<200>/NAP of DZV11 STATUS/<200> 

<200>/ILLEGAL ENTRY IN STAGGERED N0DE/<200> 


6,3 


CVDZC-B MACY11 
CVDZCB.P1 1 

(2) 006532 
(2) 006534 
( 1 ) 


306(1063) 10-AUG-81 

O-AUG-81 10:56 

006 002 
001346 


11:15 PAGE 21-34 

POWER DOWN AND UP ROUTINES 


J 4 


.EVEN 


.BYTE 

STNP2 


6,2 


Sf- 0048 


! 
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SEQ CO-.'. 


006536 

006542 

006550 

006556 

006560 

006564 

006570 

006572 

006600 

006602 

006606 

006614 

006616 

006624 

006626 

006632 

006636 

006642 

006644 

006646 

006650 

006652 

006654 


017605 

042737 

122737 

001005 

013715 

105037 

m 

001006 

013715 

112737 

000410 

122737 

001007 

013715 

105037 

062716 

000002 

104404 

000733 

000200 

000000 

100000 


006656 

006662 

006670 

006676 

006700 

006702 

006704 

006712 

006714 

00672C 

006724 

006726 

006730 


000000 

000040 

000105 

006650 

001424 

0001 11 

006652 

000010 

000123 

006654 

001424 

000002 


THIS ROUTINE ESTABLISHES WHICH MAINTENANCE NODE THE DEVICE IS IN 


007616 

007616 


.SETFLG.-MOV 

BIC 


017605 000000 


001002 

105015 


001005 

112715 177777 
062716 000002 
000002 
104404 
000752 


007616 

4$: 

CMPB 

BNE 

MOV 

001424 


MOVB 

BR 

007616 

5$: 

CMPB 

BNE 

MOV 

CLRB 


7$: 

ADD 

RTI 


6S: 

INSTER 

BR 


IS: 

.WORD 


2S: 

.WORD 


3S: 

.WORD 

;COMPAR! 
.BUFFER 
;IF THE 
;1F THE 


.PAWCH: 

MOV 

007616 


BICB 

007616 


CMPB 

BNE 

CLRB 

BR 

007616 

IS: 

CMPB 

BNE 


2S: 



3S: 

INSTER 

BR 


E=EXTERNAL LOOP BACK 
^INTERNAL LOOP BACK 
S=STAGGERED LOOP BACK 
OV 8(SP>,R5 

IC 440, INBUF 

MPB 4’E.INBUF 

NE 4$ 

ov i$.(r;> 

LRB MNTFLG 

R 71 

MPB f’J.INBUF 

NE 5S 

OV 2$,<R5> 

OVB 4MAINT, MNTFLG 

iR 7$ 

MPB 4'S.INBUF 

NE 6$ 

10V 3$,(R5) 

LRB MNTFLG 

J>D #2,<SP> 


.SETFLG 

200 

0 

100000 


PICK UP ADDRESS OF TAG 

STRIP LOWER CASE 

IS IT EXTERNAL LOOP BACK ? 

NO 

YES STORE INFO 
SET MAINT BIT =0 
GET OUT 

IS IT INTERNAL LOOP BACK ? 

NO 

YES STORE INFO 

SET UP THE MAINTENANCE FLAG LOADER 
GET OUT 

IS IT STAGGERED LOOP BACK ? 

WHAT ? 

YES STORE INFO 
ZERO BITS 
POP AROUND 

RETRY 

DITTO 

EXTERNAL = E 
INTERNAL = I 
STAGGERED = S 


COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
BUFFER TO THE CHARACTERS AND "C". 


B(SP),R 5 

#40,INBUF 

#'E,INBUF 

IS 

(R5) 

2$ 

f’C.INBUF 

3S 

#-1,(R5) 

#2,<SP> 


.PAWCH 


;SET FOR LOWER CASE INPUT 
;IS IT *t" ? 

;000 

; IS IT ‘f ? 

.-3177 

.•RETRY 


L 4 
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< 2 > 

( 2 ) 

( 2 ) 

( 2 ) 

(2) 006732 013737 001374 0071 

(2) 006740 013700 001374 

(2) 006744 005037 007152 

(2) 006750 012702 000001 
(2) 006754 005300 
(2) 006756 100402 
(2) 006760 006302 
(2) 006762 000774 

(2) 006764 012701 007026 

(2> 006770 010237 007152 
<2> 006774 022137 007144 

(2) 007000 001407 

(2) 007002 005721 
(2) 007004 001373 
(2) 007006 104402 007254 

(2) 007012 012705 002402 
(2) 007016 000402 
(2) 007020 011137 007146 

(2) 007024 000205 
( 2 ) 

( 2 ) 

( 2 > 

( 2 ) 

(2) 007026 000062 
(2) 007030 010070 
(2) 007032 000113 
£2) 007034 010470 

(2) 007036 000156 
(2) 007040 011070 
(2) 007042 000207 
(2) 007044 011470 
(2) 007046 000226 
(2) 007050 012070 
(2) 007052 000454 
(2) 007054 012430 
(2) 007056 001130 
(2) 007060 013030 
(2) 007062 002260 
(2) 007064 013430 
(2) 007066 003410 
(2) 007070 014030 
(2) 007072 003720 
(2) 007074 014430 
(2) 007076 004540 
(2) 007100 015030 
(2) 007102 00702u 
(2) 007104 015430 
(2) 007106 011300 
(2) 007110 016030 
( 2 ) 007112 016040 
(2) 007114 016430 

(2) 007116 022600 
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POWER DOWN AND UP ROUlINES 

.-THIS ROUTINE CONVERTS LINE SPEED (LINESP) AND 
;LINE NUMBER (SAVLIN) FOR DZVLPR, DZVTCR AND DZVCSR 
; REGISTER USAGE. 


SEQ 0050 


SET: 

MOV 

SAVLIN. NUMLIN 


MOV 

SAVLIN.RO 


CLR 

NUMTCR 


MOV 

#1 ,R2 

XTCR1: 

DEC 

RO 


BMI 

SET1 


ASL 

R2 


BR 

XTCR1 

SET1 : 

MOV 

#TABLE2,R1 


MOV 

R2. NUMTCR 

IS: 

CMP 

(Ri)+, LINESP 


BEQ 

2$ 


TST 

<R1) + 


BNE 

1$ 


TYPE 

.MINVAL 


MOV 

08AUD.R5 


BR 

3$ 

2J: 

MOV 

(R1). SPEED 

3$: 

RTS 

R5 


;THE FOLLOWING 
TABLE2: .WORD 50. 

.WORD 10070 
.WORD 75. 
.WORD 10470 
.WORD 110. 
.WORD 11070 
.WORD 135. 
.WORD 11470 
.WORD 150. 
.WORD 12070 
.WORD 300. 
.WORD 12430 
.WORD 600. 
.WORD 13030 
.WORD 1200. 
.WORD 13430 
.WORD 1800. 
.WORD 14030 
.WORD 2000. 
.WORD 14430 
.WORD 2400. 
.WORD 15030 
.WORD 3600. 
.WORD 15430 
.WORD 4800. 
.WORD 16030 
.WORD 7200. 
.WORD 16430 
.WORD 9600. 


SAVE SAVLIN 

COPY THE LINE NUMBER FOR LOOP CONTROL 
SET A DEFAULT OF LINE 0 OR NO LINES 
SET A BIT POINTER TO THE FIRST LINE 
REDUCE THE INDICATOR. IS IT MINUS YET? 

IF SO. R2 POINTS TO THE RIGHT LINE 
IF NOT. HOVE THE POINTER TO THE NEXT LINE 
GO SEE IF THIS LINE IS THE ONE 

COPY THE CORRECT BIT POINTER 


;IS IT THE END OF TABLE? 

;N0 

.-INVALID BAUD RATE. BEGIN AGAIN 
.-JUMP TO BAUD THRU R5 

.'SET UP BAUD RATE 


IS A TABLE OF LEGAL BAUD RATES (8 BITS/CHAR) 
;50 BAUD 


75 BAUD 

110 BAUD 
TWO STOP BITS 
134.5 BAUD 
TWO STOP BITS 
150 BAUD 
TWO STOP BITS 
300 BAUD 
ONE STOP BIT 
600 BAUD 
ONE STOP BIT 
1200 BAUD 
ONE STOP BIT 
1800 BAUD 
ONE STOP BIT 
2000 BAUD 
ONE STOP BIT 
2400 BAUD 
ONE STOP BIT 
3600 BAUD 
ONE STOP BIT 
4800 BAUD 
ONE STOP BIT 
7200 BAUD 
ONE STOP BIT 
9600 BAUD 
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007120 

007122 


017030 

177777 


000000 


11:15 PAGE 21-37 

POWER DOWN AND UP ROUTINES 


.WORD 

.WORD 


17030 

- 1.0 


SEO 0051 


.'TABLE TERMINATOR 


007126 

007130 

007132 

007134 

007136 

007140 

007142 

007144 

007146 


000000 

000000 

000000 

000000 


000156 

011070 


007150 000000 


007152 

007154 

007156 

007160 

007162 

007204 

007240 

007254 

007302 

007312 

007330 

007371 

007437 

007464 

007501 

007510 

007605 


000001 

000200 

000000 

000000 

053200 

041600 

050200 

044600 

046200 

041200 

052200 

200 

200 

041600 

377 

044124 

377 


041505 

047117 

051501 

053116 

047111 

052501 

050131 

044127 

042524 

041101 

177415 

020105 

177415 


007616 000000 
007660 
007660 000000 
007722 
007722 000000 
007764 


WCHFLG.'O 
STFLG: 0 
LOCKUP: 0 
LAST: 0 

TDATA: 0 
RDATA: 0 
BVTCNT: 0 
LINESP: 110. 
SPEED: 11070 

NUMLIN: 0 

NUHTCR: 1 
PRIO: 200 


047524 

051124 

020123 

046101 

035105 

020104 

020105 

041511 

046522 

042514 

005377 

052521 

005377 


RECDAT: 

TBUF : 

MVECTO: 

MREGAD: 

NPASS: 

HINVAL : 

NLINE: 

MSPEED: 

HCHAR: 

(WHICH: 

HTERM: 

MCABLE : 

MQUICK: 


.EVEN 


0 

0 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCII 

.ASCII 


ECHO OR CABLE FLAG 
PROGRAM START FLAG 
TIMEOUT FLAG 
LAST ERROR PC 


DEFAULT BAUD RATE 

DEFAULT 110 BAUD, 8 BITS/CHAR, 

FDX, 2 STOP BITS 


DEFAULT VALUE. TCR BIT 0 
DEFAULT DEVICE PRIORITY 
MASK OUT INTERRUPTS 


<200>/VECTOR ADDRESS- / 

<200>/CONTROL REGISTER ADDRESS- / 

<200>/PASS DONE./ 

<200>/INVALID BAUD RATE - / 

<200>/LINE: / 

<200>/BAUD RATE - / 

<200>/TYPE A CHAR. ON DZV11 TERMINAL / 

<200>/WHICH TEST ? ECHO OR CABLE (E OR C> / 

<200>/TERMINAL ECHO TEST / 

<200>/CABLE TEST / 

<377X1 5x377><377><12><377><377> c ^, on , 

/THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789/ 
<377x1 5x377x377x1 2><377><377><377><0> 


.-BUFFERS FOR INPUT-OUTPUT 


INBUF : 0 

.=.♦40 
TEM D ; 0 
.=.*40 
MDATA: 0 
.=.♦40 


N 4 


CVDZC-e MACY11 

30G 0063) 10-AUG 

CVDZCB. 

P11 10-AUG-81 

10:56 

U> 




(1) 

007764 

013700 

002040 

(1) 

007770 

062700 

000002 

(1) 

007774 

010037 

002042 

U) 

010000 

062700 

000002 

(1) 

010004 

010037 

002044 

(1) 

010010 

062700 

000002 

(1) 

010014 

010037 

002046 

(1) 




(1) 




(1> 




(1) 

010020 

013700 

001174 

(1) 

010024 

010037 

002010 

(1) 

010030 

005200 

002012 

(D 

010032 

010037 

(1) 

010036 

005200 

002014 

(1) 

010040 

010037 

(1) 

010044 

010037 

002020 

(1) 

010050 

005200 

002016 

(1) 

010052 

010037 

(1) 

010056 

010037 

002022 

CD 

010062 

005200 

002024 

(1) 

010064 

010037 

(1) 

010070 

005200 


(1) 

010072 

010037 

002026 

(1) 

010076 

005200 

002030 

(1) 

010100 

010037 

(1) 

010104 

010037 

002034 

(1) 

010110 

005200 

002032 

(1) 

010112 

010037 

(1) 

010116 

010037 

002036 

(1) 

010122 

000207 
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POWER DOWN AND UP ROUTINES 

;THIS UTILITY SETS UP CSR'S,SETS UP VECTORS. 


DZVLEV: 


MOV 

ADD 

MOV 

ADD 

MOV 

ADD 

MOV 


DZVRIV,R0 

H2.R0 

RO.DZVRIS 

02.RO 

RO,DZVTIV 

02. RO 

RO,DZVTIS 


PLACE THE BASE VECTOR ADDRESS IN RO 
CALCULATE THE RECEIVER INTERRUPT STATUS ADDR. 
STORE IT HERE 

CALCULATE (HE TRANSMITTER INTERRUPT VECTOR 
STORE IT HERE 

CALCULATE THE TRANSMITTER VECTOR STATUS ADDRESS 
STORE IT HERE 


;OF 


DEVICE 

MOV 

SBASE.RO 

; COPY THE ADDRESS BEING LOADED 

MOV 

RO.DZVCSR 

;XXXO 

INC 

RO 

;XXX1 

MOV 

RO,HDZVCSR 

INC 

RO 

;XXX2 

MOV 

RO ,DZ VRBUF 

MOV 

RO.DZVLPR 

;XXX2 

INC 

RO 

;XXX3 

MOV 

RO.HDZVRBUF 

MOV 

RO.HDZVLPR 

;XXX3 

INC 

RO 

;XXX4 

MOV 

RO.DZVTCR 

INC 

RO 

;XXX5 

MOV 

RO.HDZVTCR 

INC 

RO 


MOV 

RO.DZVMSR 

;XXX6 

MOV 

RO,DZVTDR 

;XXX6 

INC 

RO 

;XXX7 

MOV 

RO.HDZVMSR 

MOV 

RO.HDZVTDR 

;XXX7 

RTS 

PC 



SbC CO 
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B 5 


COPYRIGHT 1977 DIGITAL EOUIP. CORP. 


SEQ 0053 


2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 
2181 
2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 
2201 
2202 

2203 

2204 

2205 

2206 


010124 

010126 

010134 

010142 

010150 

010156 

010164 

010172 

010174 

010200 

010204 

010206 

010210 

010212 

010214 

010216 

010220 

010224 

010226 

010232 

010240 

010242 

010250 

010256 

010264 

010270 

010276 

010302 

010306 

010310 

010314 

010320 


010324 

010330 

010332 

010334 

010342 

010344 

010346 

010354 

010356 

010360 

010366 

010374 

010402 

010410 


104413 

012737 

013777 

013737 

053737 

013777 

012777 

005004 

012705 

005777 

100404 

104414 

005304 

001372 

104003 

005004 

112577 

001365 

004737 

122777 

001755 

012737 

012777 

012777 

106427 

012777 

104402 

105777 

100375 

106427 

004737 

000137 


105777 

100401 

104004 

017737 

100401 

104023 

032737 

001401 

104025 

113737 

113737 

042737 

042737 

000337 


000001 001246 
007152 171662 
007150 001370 
007146 001370 
001370 171634 
000040 171616 

007501 

171604 


TST1 


171610 

005436 

000377 171044 

002550 001362 
010324 171562 
000200 171556 
000000 

000140 171512 

007330 

171002 

000200 

005436 

002420 


4$: 

3S: 


2 $: 


1 $: 


171460 

171454 

020000 


0071 56 
007156 
177600 
176377 
007156 


007156 

007156 


007160 

007616 

007616 

007156 


********** ECHO TEST ********** 

•THIS TEST WILL ACCEPT 1 CHARACTER A7 A TIME 

•(IN INTERRUPT MODE) AND TRANSMIT THAT SAME CHARACTER, 

•ONE LINE AT A TIME, ANY LINE 0 THRU 7 (OCTAL) 


DEVICE 

MOV 

MOV 

MOV 

BIS 

MOV 

MOV 

CLR 

MOV 

TST 

BMI 

DELAY 

DEC 

BNE 

ERROR 

CLR 

MOVB 

BNE 

JSR 

CMP8 

BEQ 

MOV 

MOV 

MOV 

MTPS 

MOV 

TYPE 

TSTB 

BPL 

MTPS 

JSR 

JMP 


.CLR 

#1 ,$TSTNM 

NUMTCR,8DZVTCR 

NUMLIN.PAR 

SPEED. PAR 

PAR.8DZVLPR 

0MSENAB.8DZVCSR 

R4 

M0UJCK.R5 

8DZVCSR 

2 $ 


R4 
3$ 

3 

R4 

<R5)+.8t ZVTDR 

3$ 

PC.SERV.G 
*377,8SWR 
4$ 

fSEOP.NEXT 
#INTSVC,8DZVRIV 
MASK.8DZVRIS 
fCLEAR 
#RIE JMSENAB.8DZVC 
.MCHAR 
8STKS 
IS 

MASK 
PC.SERV.G 
LINEX 


CLEAR DZV11 

SET TCR BIT 
SET PARAMETERS 
SET BAUD RATE 
LOAD PARAM. 

SET SC ANN ENABLE 

SET MESSAGE BUFFER 
TRDY? 

BR IF YES 
WAIT 


NO TRDY SET! WHY? 

RESET COUNTER TO 0 
LOAD CHAR 

<*G>? 

SUR SET TO 377? 

IF YES LOOP ON OUICK MESSAGE 

SET UP INTERRUPT SERVICE 
AND LEVEL 
ALLOW INTERRUPTS 

SR ;SET RECEIVER INTERRUPT ENABLE 
TYPE "ANY CHARACTER" 

IF SCMBODY HITS A KEY- GET NEW LINE » 
LOOP HERE 

MASK FURTHER INTERRUPTS 
MAKE SURE IT WASN’T <*G> 


INTSVC: 


THE FOLLOWING IS THE RECEIVER INTERRUPT SVC ROUTINE 


tSTB 8DZVCSR 

BMI .*4 

ERROR 4 

MOV 8DZVRBUF.RECDAT 

BMI .*4 

ERROR 23 

BIT #8IT13, RECDAT 

BEQ .+4 

ERROR 25 

MOVB RECDAT.TBUF 

MOVB RECDAT.INBUF 

BIC r*C<177>,INBUF 

BIC #1 76377, RECDAT 

SWAB RECDAT 


.•TEST REC. FLAG 
; ERROR - INTERRUPT NOT CAUSED BY FLAG 


NON- VALID CHARACTER 

CHECK FOR FRAMING ERROR 

BR IF NO ERROR 

EITHER SOMBODY HIT THE 

‘BREAK KEY" OR YOU HAVE AN ERROR! 

MOVE CHARACTER TO OUTPUT AREA 

MOVE CHARACTER TO CHECK FOR *C 

STRIP JUNK PLUS PARITY 

SAVE ONLY LINE NUMBER 
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C 5 


220 7 

2208 

2209 

2210 
2211 
2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 
2221 
2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 
2262 


010414 

010422 

010424 

010432 

010434 

010442 

010450 

010452 

010454 

010460 

010462 

010466 

010470 

010476 


023737 001374 007156 
001407 

013737 007156 001374 
104015 

013737 007150 001374 
123727 007616 000003 2$: 
001004 
104413 

012716 002550 

00577? 171322 1$: 

100375 

113777 007160 171336 
000002 


010500 

010504 

010512 

010520 


010522 

010530 

010536 

010540 

010544 

010546 

010552 

010554 

010560 

010562 

010564 


010566 

010570 

010572 

010576 

010604 

010612 

0<0620 

010626 

010634 

010642 

010650 

010656 

010664 


106427 000200 TST2: 

012737 000002 001246 
012737 002550 001362 
104413 


012737 

113777 

005005 

153705 

000305 

153705 

104414 

017704 

020504 

001401 

104022 


104401 

104413 

005037 

013737 

053737 

052737 

013777 

012777 

012777 

012777 

012777 

012777 

105037 


010530 

007152 

007152 

007152 

171250 


001364 
171270 1$: 


001364 

007146 

007150 

010000 

001370 

010750 

000200 

011140 

000200 

040140 

001425 


2 $: 

3$: 


001370 

001370 

001370 

171172 

171204 

171200 

171174 

171170 

171124 


CMP 

BEQ 

MOV 

ERROR 

MOV 

CMPB 

BNE 

DEVICE 

MOV 

RTI 

TST 

BPL 

MOVB 

RTI 


SAVLIN.RECDAT 

2 $ 

RECDAT.SAVLIN 

15 

NUMLIN.SAVLIN 

INBUF,#3 

1 $ 

.CLR 

#SEOP,iSP> 

aozvcsR 

1 $ 

TBUF.3DZVTDR 


COPYRIGHT 1977 DIGITAL EQUIP. CORP. 
DOES THE LINE # COMPARE? 


SEQ 0054 


ADJUST LINE NO. FOR ERROR 
•WRONG LINE NUMBER 
CORRECT LINE NO. INDICATOR 
;IS IT A *C ? 

NO 

CRUNCH STACK 
TRDY SET 

IF NOT THEN WAIT 
TRANSMIT THE CHARACTER 


********** CABLE TEST ********** 

•THIS TEST TRANSMITS A BINARY COUNT PATTERN 
.•VIA INTERRUPT MODE TO THE RECEIVER 
;•*... THE LINE UNDER TEST MUST BE TERMINATED WITH THE TEST CONNECTOR 

MTPS MASK .'DISABLE INTERRUPTS 

MOV #2,STSTNM 

MOV fSEOP.NEXT 

DEVICE. CLR ; 

.-•TEST TO VERIFY THAT SETTING DTR FOR A GIVEN LINE 
.-•WILL BRING UP "CO" AND 'TUNG" FOR THE SAME LINE 
; ‘JUMPERS W1.U2.W3 AND U4 MUST BE INSTALLED ON THE 
.-•INTERFACE MODULE OTHERWISE AN ERROR REPORT WILL RESULT. 


MOV fIS.LOCK 

MOVB NUMTCR.8HDZVTCR 

CLR R5 

81 SB NUMTCR.R5 

SWAB R5 

BISS NUMTCR.R5 

DELAY 

MOV 8DZVNSR.R4 

CMP R5.R4 

BEQ 2S 

ERROR 22 


SC0P1 

DEVICE. CLR 
CLR LOCK 

MOV SPEED. PAR 

BIS NUMLIN.PAR 

BIS fRCVON.PAR 

MOV PAR.8DZVLPR 

NOV fINTREC.aDZVRIV 

MOV 0MASK.8DZVRIS 

MOV #INTRAN,80ZVTIV 

MOV 0NASK.8DZVTIS 

MOV *TIE!RIE!MSENAB. 

CLRB DONFLG 


LOOP 
SET DTR 

BUILD EXPECTED 
PUT IN HIGH BYTE 

WAIT FOR CABLE DELAY 
READY MODEM BITS 
ARE THEY OK? 

BR IF YES 

IS THE TEST CONNECTOR ON? 

HAS RIGHT LINE BEEN SELECTED? 

IF SO- YOU HAVE A PROBLEM! 

MODEM BITS NOT RIGHT 
LOOP 

INIT DZV11 

CLEAR SC0P1 LOCK ADDRESS 
SET LINE SPEED 
SELECT LINE # 

ENABLE THE RECEIVER FOR THIS LINE 

SET THE PARAMETERS AND TURN ON RECEIVER 

SET UP INTR SERVICE 

SET UP LEVEL 

SET UP INTR SERVICE 

SET UP LEVEL 

IDZVCSR :SET TRANSMITTER INTERRUPT ENABLE 
INIT INTERRUPT DONE INDICATOR 
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2263 

010670 

005001 




CLR 

R1 

;RX DATA POINTER- SET TO 0 

2264 

010672 

005002 




CLR 

R2 

;TX DATA POINTER- SET TO 0 

2265 

010674 

013777 

007152 

171122 


NOV 

NUNTCR.8DZVTCR 

.-SET UP TCR BIT 

2266 

010702 

106427 

000000 



NTPS 

#CLEAR 

.•ALLOW INTERRUPTS 

2267 

2268 






; YOU RETURN HERE AFTER EVERY RECEIVER INTERRUPT 

2269 

010706 

105777 

170376 


SPIN: 

TSTB 

8STKS 

;IF SONEBODY HITS A KEY- GET A NEW LINE # 

2270 

010712 

100004 




BPL 

1$ 

.•BRANCH IF NO KEY HIT 

2271 

010714 

004737 

005436 



JSR 

PC.SERV.G 

;NAKE SURE IT WASN'T <*G> 

2272 

010720 

000137 

002420 



JNP 

LINEX 

; SW02=1 

2273 

010724 

105737 

001425 


1$: 

TSTB 

DONFLG 

.ARE ALL RECEIVER INTER. DONE 

2274 

010730 

001004 




BNE 

QUITS 

;IF YES GET OUT OF TINING LOOP 

2275 

010732 

005237 

007132 



INC 

LOCKUP 

;INC TINEOUT FLAG 

2276 

010736 

001363 




BNE 

SPIN 

;IF NOT 0 RETURN SPINNING 

2277 

010740 

104011 




ERROR 

11 

; ‘RECEIVER FAILED TO INTERRUPT CHECK CABLE/TERNINATOR 

2278 

010742 

104413 



QUITS: 

DEVICE. 

CLR 


2279 

010744 

000137 

002550 



JNP 

SEOP 

.-CALL FOR END OF PASS 

2280 

010750 

005037 

007132 


INTREC: 

CLR 

LOCKUP 

.•CLEAR TINEOUT FLAG 

2281 

010754 

105777 

171030 



TSTB 

SDZVCSR 

.•TEST REC DONE 

2282 

010760 

100401 




8NI 

.♦4 

;YES 

2283 

010762 

104004 




ERROR 

4 

.•‘FALSE INTERRUPT 

2284 

010764 

017737 

171024 

007156 


NOV 

8DZVRBUF .RECDAT 

.•SAVE WORD 

2285 

010772 

100401 




8NI 

.♦4 


2286 

010774 

104023 




ERROR 

23 

.-•NON VALID CHARACTER 

2287 

010776 

032737 

040000 

007156 


BIT 

#BIT14. RECDAT 

;DATA OVERRUN ? 

2288 

011004 

001401 




BEQ 

.♦4 

;N0 

2289 

011006 

104024 




ERROR 

24 

;*YES 

2290 

011010 

032737 

020000 

007156 


BIT 

#BIT13, RECDAT 

; FRAMING ERROR ? 

2291 

011016 

001401 




BEQ 

.♦4 

;N0 

2292 

01 (020 

104025 




ERROR 

25 

;*YES 

2293 

011022 

032737 

010000 

007156 


BIT 

#8IT12. RECDAT 

.•PARITY ERROR ? 

2294 

011030 

001401 




BEQ 

.♦4 

;N0 

2295 

011032 

104026 




ERROR 

26 

;*YES 

2296 

011034 

110105 




mm 

R1.R5 

.-SET EXPECTED 

2297 

011036 

113704 

007156 



NOVB 

RECDAT*R4 

;GET FOUND 

2298 

011042 

042704 

177400 



BIC 

#*C<377>,R4 

.’CLEAR HIGH BYTE 

2299 

011046 

042705 

177400 



BIC 

#‘C<377>,R5 

.•CLEAR HIGH BYTE 

2300 

011052 

020504 




CNP 

R5.R4 

;0K? 

2301 

011054 

001401 




BEQ 

.♦4 


2302 

011056 

104005 




ERROR 

5 

;DATA ERROR 

2303 

011060 

042737 

176377 

007156 


BIC 

I176377.RECDAT 

.•SAVE ONLY LINE NUNBER 

2304 

011066 

000337 

007156 



SUAB 

RECDAT 


2305 

011072 

023737 

001374 

007156 


CNP 

SAVLIN, RECDAT 

.•DOES THE LINE M COMPARE ? 

2306 

011100 

001407 




BEQ 

4$ 

;YES 

2307 

011102 

013737 

007156 

001374 


NOV 

RECDAT, SAVLIN 

; ADJUST LINE NO. FOR ERROR 

2308 

011110 

104015 




ERROR 

15 

.•‘WRONG LINE # 

2309 

011112 

013737 

007150 

001374 


NOV 

NUHL IN. SAVLIN 

.•READJUST LINE NO. 

2310 

011120 

120127 

000377 


4$: 

CNPB 

R1 ,#377 

.-LAST CHARACTER ? 

2311 

011124 

001003 




BNE 

IS 

.‘NO 

2312 

011126 

105237 

001425 



INCB 

DONFLG 

.•INDICATE RECEIVER INTERRUPTS DONE 

2313 

011132 

000401 




BR 

2S 


2314 

011134 

105201 



1$: 

INCB 

R1 

.•UPDATE EXPECTED DATA 

2315 

011136 

000002 



2$: 

RTI 



2j1o 

2317 

011140 

0C5777 

170644 


INTRAN: 

TST 

8DZVCSR ;TEST TRANSNIT FLAG 

2318 

i 

| 

011144 

100401 




BNI 

.♦4 
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2319 011146 104003 

2320 011150 110277 170660 

2321 011154 105202 

2322 011156 001003 

2323 011160 042777 040000 170622 

2324 011166 000002 


ERROR 

MOVB 

INCB 

BNE 

BIC 

RTI 


R2.8DZVTDR 

R2 

1 $ 

*Ut. 8DZVCSR 


*FALSE INTERRUPT 
TRANSMIT A CHARACTER 
UPDATE TX DATA 
BIT PATTERN DONE? 

IF YES THEN CLEAR TIE 
IF NOT THEN RETURN 


I 

l 



F 5 

COPYRIGHT 1977 DIGITAL EQUIP. CORP. 
.■ERROR 0 

.-ERROR 

.•ERROR 2 

.•ERROR 3 

; ERROR 4 

.•ERROR 5 

.•ERROR 6 
; ERROR 7 
.-ERROR 10 
.•ERROR 11 
.-ERROR 12 
; ERROR 13 
; ERROR 14 


.-ERROR 15 


CVDZC-B MACY11 30G(1063) 10-AUG-81 

10-AUG-81 10:56 


CVDZC8. 

P11 

2382 


2383 

0r314 

23*4 

01 i 316 

2385 

011320 

238/; 


2387 

011322 

2388 

011324 

2389 

011326 

2390 


2391 

011330 

2392 

011332 

2393 

011334 

2394 


2395 

011336 

2396 

011340 

2397 

011342 

2398 


2399 

011344 

2400 

011346 

2401 

011350 

2402 


2403 

011352 

2404 

011354 

2405 

011356 

2406 


2407 

011360 

2408 

011362 

2409 

011364 

2410 


2411 

011366 

2412 

011370 

2413 

011372 

2414 


2415 

011374 

2416 

011376 

2417 

011400 

2418 


2419 

011402 

2420 

011404 

2421 

011406 

2422 


2423 

011410 

2424 

011412 

2425 

011414 


012272 

013025 

013176 

012330 
013025 
01 317o 

012371 

013066 

013222 

012421 

013037 

013204 

012463 

013025 

013176 

012513 

013025 

013176 

012541 

013025 

013176 

012571 

013025 

013176 

012620 

013025 

013176 


G 5 
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EMI 6 
DH3 

DT3 


EMI 7 
DH3 

0T3 

; ERROR 17 

EM20 

DH3 

DT3 


EM21 

DH5 

DT5 

; ERROR 21 

EM22 

DH4 

DT4 

; ERROR 22 

EM23 

DH3 

DT3 

; ERROR 23 

EM24 

DH3 

DT3 


EM25 

DH3 

9T3 


EM26 

DH3 

DT3 


EM27 

DH3 

DT3 


EM30 

DH3 

DT3 



SEQ 0058 


H 5 
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;ERRufl 

MESSAGES 

2431 

011416 

047200 

020117 

052502 

EMI 


.ASCIZ 

<200>/N0 BUS REPLY RESPONSE FROM DZV11 REGISTER/ 

2432 

011471 

200 

042522 

044507 

E M2 


.ASCI Z 

<200>?REGISTER R/W FAILURE? 

2433 

011517 

200 

051124 

047101 

EM3 


.ASCIZ 

<200>/ TRANSMIT READY (TRDY) NOT SET/ 

2434 

011556 

051200 

041505 

044505 

EM4 


.ASCIZ 

<200>/RECEIVER DONE NOT SET/ 

2435 

011605 

200 

042^00 

040504 

040524 

EM5 


.ASCIZ 

<200>/DATA COMPARISON ERROR/ 

2436 

011634 

053132 

03046) 

EM6 


.ASCIZ 

<200>/D2Vl 1 ‘RECEIVER BUFFER* ERROR/ 

2437 

011673 

200 

051124 

047101 

EM7 


.ASCIZ 

<200>/ TRANSMIT TER FAILED TO INTERRUPT/ 

2438 

011734 

052600 

042516 

050130 

EM8 


.ASCIZ 

<200>/UNEXPECTED TRANSMITTER INTERRUPT/ 

2439 

011776 

051200 

041505 

044505 

EM9 


.ASCIZ 

<200>/RECEIVER FAILED TO INTERRUPT/ 

2440 

012034 

052600 

042516 

050130 

EM1( 

). 

.ASCIZ 

<200>/UNEXPECTED RECEIVER INTERRUPT/ 

2441 

012073 

200 

044523 

047514 

EMl] 

5 

.ASCIZ 

<200>/SILO ALARM SET TOO SOON/ 

2442 

012124 

051600 

046111 

020117 

EMU 

.ASCIZ 

<200>/SILO ALARM FAILED TO SET/ 

2443 

012156 

040600 

052103 

047511 

EMI 5 

.ASCIZ 

<200>/ACTI0N DETECTED ON INVALID LINE./ 

2444 

012220 

051200 

040505 

044504 

EMU 

.ASCIZ 

<200>/READING DZVR8UF DID NOT CLEAR SILO ALARM/ 

2445 

012272 

042200 

052101 

020101 

EMI 7 

.ASCIZ 

<200>/DATA VALID SHOULD NOT BE SET/ 

2446 

012330 

051200 

041505 

044505 

EM20 

.ASCIZ 

<200>/RECEIVER DONE SHOULD NOT BE SET/ 

2447 

012371 

200 

042522 

040514 

EM21 

.ASCIZ 

<200>/RELATIVE TIMING ERROR./ 

2448 

012421 

200 

047515 

042504 

EM2i 

>, 

.ASCIZ 

<200>/H0DEH SIGNAL ERROR ON CABLE TEST/ 

2449 

012463 

200 

040504 

040524 

EM2: 

\ 

.ASCIZ 

<200>/DATA VALID IS NOT SET!/ 

2450 

012513 

200 

040504 

040524 

EM24 

.ASCIZ 

<200>/DATA OVERRUN IS SET!/ 

2451 

012541 

200 

051106 

046501 

EM25 

.ASCIZ 

<200>/FRAMING ERROR OCCURRED/ 

2452 

012571 

200 

040520 

044522 

EM26 

.ASCIZ 

<200>/PARITY ERROR OCCURRED/ 

2453 

012620 

051600 

046111 

020117 

EM27 

.ASCIZ 

<200>/SILO ALARM FAILED TO CAUSE INTERRUPT/ 

2454 

2455 

2456 

012666 

046200 

047111 

020105 

EM30 

.ASCIZ 

<200>/LINE DID NOT RECEIVE FULL BINARY COUNT PATTERN/ 

012746 

052200 

040522 

020120 

0H1 


•ASCIZ 

<200>/TRAP PC DZV11 REG/ 

2457 

012772 

042600 

050130 

041505 

DH2 


.ASCIZ 

<200>/EXPECTED FOUND REGISTER/ 

2458 

013025 

200 

044514 

042516 

DH3 


.ASCIZ 

<200>/LINE NO./ 

2459 

013037 

200 

054105 

042520 

DH4 


.ASCIZ 

<200>/EXPECTED FOUND LINE/ 

2460 

013066 

052200 

020130 

044514 

DH5 


.ASCIZ 

<200>/TX LINE PREVIOUS TIME ACTUAL TIME PARAMETER/ 

2461 









2462 


013146 



.EVEN 


2466 







.DATA TABLES FOR ERROR MESSA6ES 

2467 

013146 

000002 



DTI 


2 

6.3 

2468 

013150 

006 

003 




.BYTE 

2469 

013152 

001330 





SREG1 

2470 

013154 

006 

001 




.BYTE 

6.1 

2471 

013156 

001326 





SREGO 

2472 









2473 

013160 

000003 



0T2 

• 

3 


2474 

013162 

006 

001340 

004 




.BYTE 

6.4 

2475 

013164 





SREG5 

2476 

013166 

006 

001 




.BYTE 

6.1 

2477 

013170 

001336 





SRE64 

2478 

013172 

006 

001 




.BYTE 

6.1 

2479 

013174 

001326 





SREGO 


2480 









2481 

013176 

000001 



DT3 


1 


2482 

013200 

003 

001 




.BYTE 

3.1 

2483 

013202 

001374 





SAVLIN 

2484 









2485 

013204 

000003 



DT4 


3 


2486 

013206 

006 

001340 

004 




.BYTE 

6.4 

2487 

013210 





SREG5 

2488 

013212 

006 

001 




.BYTE 

6.1 
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2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 


013214 

013216 

013220 

013222 

013224 

013226 

013230 

013232 

013234 

013236 

013240 

013242 


013244 

013246 

013250 

013252 

013254 

013256 

013260 

013262 

013264 

013266 

013270 

013272 

013274 

013276 

013300 

013302 


001336 

003 

001374 

000004 

003 

001374 

006 

001340 

006 

001344 

006 

001402 


002450 

001560 

001120 

000750 

000660 

000330 

000150 

000060 

000040 

000030 

000020 

000010 

000001 

000001 

000001 

000001 




SREG4 

3.1 

001 

DT5: 

.BYTE 

SAVLIN 

4 

005 


.BYTE 

SAVLIN 

3.5 

Oil 


.BYTE 

SREG5 

6.9 

007 


.BYTE 

*TMP1 

6.7 

001 


.BYTE 

REGIST 

6.1 


DLYTBl: 2450 
1560 
1120 
750 
660 
330 
150 
60 
40 
30 
20 
10 
1 
1 
1 
1 


.'TABLE OF DELAY TIMES FOR INDIVIDUAL BAUD RATES 


TIME FOR 
TIME FOR 
TIME FOR 
TIME FOR 
TIME FOR 
TIME FOR 
TIME FOR 


50 

75 

110 

134 

150 

300 

600 


TIME FOR 1200 
TIME FOR 1800 
TIME FOR 2000 
TIME FOR 2400 
TIME FOR 3600 
TIME FOR 4800 
TIME FOR 7200 
TIME FOR 9600 
TIME OF DELAY 


BAUD 

BAUD 

BAUD 

BAUD 

BAUD 

BAUD 

BAUD 

BAUD 

BAUD 

BAUD 

BAUD 

BAUD 

BAUD 

BAUD 

BAUD 

FOR 19200 BAUD 


.'DELAYS WERE COMPUTED TO ALLOW MAXIMUM TIME AT EACH BAUD RATE 
.'FOR ALL TESTS TO FUNCTION CORRECTLY ON A LSI11. 


SEQ 0060 
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2526 

2527 

2528 


11 


:15 PAGE 24 
FALCON OCXT-1 1 ) 


J 5 

UPGRADE ROUTINES. 


; ; GPA 


SEQ 0061 


.S8TTL FALCON (KXT-11) UPGRADE ROUTINES. 


;;GPA 


25 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 


013304 

013310 

013312 

013316 

013320 

013322 


000400 

000404 

000410 

000416 

000422 

000424 

000426 

000432 

000434 

000440 

000444 

000450 

000454 

000460 

000464 

000470 

000476 

000502 

000504 

000510 

000512 

000516 

000522 

000526 

000530 

000534 

000536 

000542 

000544 


005227 

001002 

004737 

005727 

000000 

000207 

013324 

000400 

005037 

013746 

012737 

012700 

005720 

000240 

020027 

103773 

010037 

012700 

040037 

040037 

040037 

040037 

040037 

012737 

012637 

000207 

012716 

000002 

012637 

012700 

013701 

010602 

012704 

014446 

020427 

101374 

010607 


177777 

000400 


THE FOLLOWING ROUTINES HAVE BEEN ADDED TO ALLOW DIAGNOSTIC(S) 

TO RUN ON A FALCON (KXT-11) BASED SYSTEM. 

TO DETERMINE WHETHER WE’RE A FALCON OR NOT, WE’LL SIZE THE 1ST 3/4 OF 
THE I/O PAGE (28K TO 31K). FALCON HAS 2KW I OCAL RAM AT 28K<*4) TO 30K 
AND A MACRO-ODT AT 30K TO 31K. CONSEQUENTLY, ALL I/O DEVICES MUST 
BE PLACED BETWEEN 174000 AND 177776. ADDITIONALLY, WE’LL STRAP THE 
EMT AND TRAP SERVICE LEVEL TO PRI6, AND SET THE HALT VECTOR SO THAT 
WE CAN STOP THE SUCKER !! 

TO MINIMIZE THE IMPACT OF THESE CHANGES ON FINAL PROGRAM SIZE. THE 
BULK OF THIS CODE IS PLACED IN THE FLOATING VECTOR SPACE (400-776). 

IF THE CPU AT HAND IS A FALCON (KXT11) , IT STAYS THERE (NO HARM DONE). 
OTHERWISE, THE AREA IS RESTORED TO ITS ORIGINAL " TRAP-CATCHER" STATE. 


FALCON: INC 
BNE 
CALL 
IS: TST 

KXTFLAG: 0 

RETURN 

$SVPC= 
.= 400 


013320 


KXTCHK: 

CLR 

000004 



MOV 

000504 

000004 


MOV 

160010 



MOV 



IS: 

TST 




240 

174000 



CMP 




BLO 

013320 



MOV 

wlvvl 



MOV 




BIC 

000016 



BIC 

000022 



BIC 

000032 



BIC 

000036 



BIC 

170000 

000140 


MOV 

000004 



MOV 

RETURN 

000512 


2S: 

MOV 




RTI 

000004 


3S: 

MOV 

000402 



MOV 

000376 



MOV 




MOV 

000570 



MOV 



4S: 

MOV 

000546 



CMP 




BHI 




MOV 


#-1 

1$ 

KXTCHK 

(PC)* 


KXTFLAG 
B#4 ,-(SP) 
#2S.B#4 
#160010, RO 
(RO)* 

R0.#1 74000 
1$ 

RO. KXTFLAG 

#40,R0 

R0,i#6 

R0,B#16 

R0,B#22 

R0,a#32 

R0.a#36 

#i?oooo,a#i40 

(SP) ♦,a#4 


#3$,(SP) 

(sp)*.a# 4 

a#S?$?Ri 

SP.R2 
#6i.R4 
-<R4).-(SP) 
44 * 5i 
4$ 

SP.PC 


; ONCE -ONLY ••• 

; EXECUTE FALCON CHECK 
; TEST FALCON FLAG... 

;...NZ = FALCON... 

; . . .AND RETURN TO CALLER... 


RESTORE FROM 374:376 AT END 
ASSUME NOT FALCON. 

SAVE ERROR VECTOR. 

SET A TRAP CATCHER. 

FALCON RAM STARTS AT 28K*4. 


SIZE TO 31K. 

MUST BE FALCON, SET THE FLAG 
GET PRI1 BIT... 

...AND LOWER BUS-ERROR... 
...BPT... 

. . . I OT ... 

EMT 

!“ AND* TRAP SERVICE TO PRI6 
ENABLE ’BREAK" HALT. 

RESTORE ERROR VECTOR... 

...AND RETURN. 

TRAP — NOT A FALCON... 
...CONTINUE. 

RESET ERROR VECTOR 
SET-UP TO RESTORE FLOATING... 
...VECTORS (4u0 - 776). 

SAVE STACK POINTER IN R2 

PUSH THE RESTORE CODE... 
...ONTO THE STACK. 

AND EXECUTE IT. 


;;GPA 
;;GPA 
; ; GPA 
;;GPA 
;;GPA 
;;GPA 

;;GPA 

;:GPA 

;;GPA 

;;GPA 

;;GPA 

;;6PA 

;;6PA 

;;GPA 

;;GPA 

;;GPA 

;;GPA 

;;GPA 

;;GPA 

;;GPA 

;;GPA 

;;GPA 

;;GPA 

;;GPA 

;;GPA 

;;GPA 

; ; GPA 
;;GPA 
;;GPA 
;;GPA 
;;GPA 
;;GPA 

;;GPA 
;;GPA 
;;GPA 
; ; GPA 


K 5 
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;;GPA 


2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 
2601 
2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 
2611 
2612 

2613 

2614 

2615 

2616 

2617 

2618 
2622 

2623 

2624 
2628 


THIS CODE IS RELOCATED TO AND EXECUTED IN THE STACK AREA. 


000546 

010060 

177776 

5 $: 

NOV 

000552 

010110 



NOV 

000554 

022020 



CMP 

000556 

020027 

000776 


CMP 

000562 

101771 



BLOS 

000564 

010206 



MOV 

000566 

000207 



RETURN 

000570 



6S: 



R0,-2(R0> 
R1. (RO) 
(RO)*.(ROH 
R0,#776 

5$ 

SP 


; RESTORE .+2... 
.-...HALT (OR IOT) . 


LOOP 'TIL DONE 
THEN RESTORE SP... 
...AND RETURN TO CALLER 


IF FALCON, THIS AREA IS FREE FOR ANY PROGRAM UNIQUE 
CHANGES OR DATA STRUCTURES. 

BE SURE IT DOESN'T GET SCREWED UP !! 


I NIT S8ASE AND SVECT1 AND TWEAK THE "SGETPAR* 
SEQUENCE TO ACCEPT THE VALID FALCON RANGE. 


CALLING 


000570 

023727 

001174 

160010 

FALCINI 

: CMP 

000576 

001003 


001174 


BNE 

FivF'i! 

012737 

174040 

IS: 

MOV 


023727 

001170 

000000 

CMP 

000614 

001003 


001170 


BNE 

000616 

012737 

000370 

2S: 

MOV 

000624 

012737 

000670 

002334 

MOV 

000632 

012737 

174000 

002340 


MOV 

000640 

012737 

177770 

002342 


MOV 

000646 

012737 

000732 

002352 


MOV 

000654 

005037 

002356 

002360 


CLR 

000660 

012737 

000370 


MOV 

000666 

000207 




RETURN 

000670 

030600 

052123 

041440 

3S: 

.ASC12 

000732 

030600 

052123 

053040 

4S: 

.ASCII 

.EVEN 


S8ASE,#ABASE 
IS 

Ml 74040, S8ASE 
SVECT1 ,#AVECT1 

2 $ 

#370.SVECT1 
#3S.6ETCSR*2 
#1 74000, GETCSR+6 
#1 77770, GETCSR+10 ;.,.AND VALID RANGE. 
#4S,GETVEC+2 ; SUBSTITUTE VECTOR TEXT... 
6ETVEC+6 

#370,GETVEC*10 .AND VALID RANGE. 

; RETURN TO CALLER. 

<200>'1ST CSR ADDRESS (174000:177770) ’ 
<200>'1ST VECTOR ADDRESS (000:370) ' 


013324 


000002 

013324 

000001 


SFREE- 


CORMAX: 

.END 


<1000-. >/2 

.=SSVPC 


FREE WORDS LEFT. 


; ; GPA 
; ; GPA 
; ; GPA 
; ; GPA 
;;GPA 
; ; GPA 
;;GPA 
;;GPA 


IS S8ASE VIRGIN ?? 

SKIP NEXT IF NOT 

YES. SET ENGINEERING DEFAULT 

IS SVECT1 VIR6IN ?? 

SKIP NEXT IF NOT 

YES, SET ENGINEERING DEFAULT 

SUBSTITUE CSR TEXT... 


;;GPA 
;;GPA 
; ; GPA 
; ; GPA 
; ; GPA 
;;GPA 
;;GPA 
;;GPA 
;;GPA 
;;GPA 
;;GPA 
;;GPA 
; ; GPA 

;;GPA 

;;GPA 

;;GPA 

;;GPA 

:;GPA 
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AVECT - 000300 DDISP = 

177570 

DZVC2 

001526 

FIVE = 

000000 

ACDW1 = 000000 

AVECT1= 000000 

DELAY = 

104414 

DZVC3 

001540 

FIVES = 

000040 

ACDW2 = 000000 

AVECT2= 000000 

DEVADR 

004322 

DZVC4 

001552 

FRMERR* 

020000 

ACPU0P= 000000 

BAUD 002402 

DEVICE= 

104413 

DZVC5 

001564 

GETCSR* 

002332 

ACTIVE 001420 

BINWRD 004600 

DH1 

012746 

DZVC6 

001576 

GETSWR= 

005464 

ADDWO = 000000 

BITO = 000001 

DH2 

012772 

DZVC7 

001610 

GETVECs 

002350 

ADDU1 = 000000 

BITOO = 000001 

DH3 

013025 

DZVLEV 

007764 

HALTS 

005276 

001423 

ADDWl 0= COOOOO 

BIT01 = 000002 

DH4 

013037 

DZVLPR 

002020 

HDRFLG 

ADDWl 1 = 000000 

BIT02 = 000004 

DH5 

013066 

DZVMSR 

002030 

HDZVCS 

002012 

ADDWl 2= 000000 

BIT03 = 000010 

DISPLA 

001306 

DZVNUW 

001414 

HDZVLP 

0U2022 

ADDWl 3= 000000 

BIT04 = 000020 

DISPRE 

0001 74 

DZVRBU 

002014 

HDZVMS 

002032 

ADDWl 4= 000000 

BIT05 = 000040 

DLYCNT 

004674 

Dzvr.is 

002042 

HDZVRB 

002016 

ADDWl 5= 000000 

BIT06 = 000100 

DLYT8L 

013244 

DZVRIV 

002040 

HDZVTC 

002026 

ADDW2 = 000000 

BIT07 = 000200 

DONFLG 

001425 

DZVTCR 

002024 

HDZVTD 

002036 

ADDW3 = 000000 

BIT08 = 000400 

DSWR = 

177570 

DZVTDR 

002034 

HILIM 

004320 

ADDW4 = 000000 

BIT09 = 001000 

DTRO = 

000400 

DZVTIS 

002046 

HT = 

000011 

ADDW5 = 000000 

BIT1 = 000002 

DTR1 = 

001000 

DZVTIV 

002044 

INBUF 

007616 

ADDW6 = 000000 

BIT10 = 002000 

DTR2 = 

002000 

DZV.EN 

001740 

INIFLG 

001422 

ADDW7 = 000000 

BIT11 = 004000 

DTR3 = 

004000 

DZV.MA 

001500 

INSTER- 

104404 

ADDW8 - 000000 

BIT12 = 010000 

D T 1 

013146 

EIGHT = 

000030 

INSTR = 

104403 

ADDW9 = 000000 

BIT13 = 020000 

DT2 

013160 

EIGHTS= 

000070 

INSTR2 

004120 

ADEVCT= 000000 

BIT14 = 040000 

DT3 

013176 

EMTVEC= 

000030 

IN TRAN 

011140 

ADEVN = 000000 

BIT15 = 100000 

DT4 

013204 

EMI 

011416 

INTREC 

010750 

ADRCNT 004325 

BIT2 = 000004 

DT5 

013222 

EM10 

012034 

INTSVC 

010324 

ADVANC= 104400 

BIT3 = 000010 

DVALID= 

100000 

EMI 3 

012073 

IOTVEC= 

000020 

AENV = 000000 

BIT4 = 000020 

DZCRO 

001500 

EH14 

012124 

KXTCHK 

000400 

AENVM = 000000 

BIT5 = 000040 

DZCR1 

001512 

EMI 5 

012156 

KXTFLA 

013320 

AFATAL= 000000 

BIT6 = 000100 

DZCR10 

001620 

EM16 

012220 

LAST 

007134 

AMADR1* 000000 

BIT 7 = 000200 

DZCR11 

001632 

EMI 7 

012272 

LF 

000012 

AHADR2= 000000 

BIT8 = 000400 

DZCR12 

001644 

EM 2 

011471 

LIMITS 

004246 

AMADR3= 000000 

BIT9 = 001000 

DZCR13 

001656 

EM20 

012330 

LINE 

001366 

AMADR4= OOOCOO 

BPTVEC= 000014 

DZCR14 

001670 

EM21 

012371 

LINESP 

007144 

AMAMS1= 000000 

BRKO = 000400 

DZCR15 

001702 

EM22 

012421 

LINEX 

002420 

AMAMS2= 000000 

BRK1 = 001000 

DZCR16 

001714 

EM23 

012463 

LINEO 

001504 

AMAMS3= 000000 

BRK2 = 002000 

DZCR17 

001726 

EM24 

012513 

LINE1 

001516 

ARAMS 4= 000000 

BRA 3 = 004000 

DZCR2 

001524 

001536 

EM25 

012541 

LINE10 

001624 

AMSGAD= 000000 

BUFSET= 104422 

DZCR3 

EM26 

012571 

LINE11 

001636 

AMSGL6= 000000 

BYTCNT 007142 

DZCR4 

001550 

EM27 

012620 

LINE12 

001650 

AM$GTY= 000000 

CHRCNT 004576 

DZCR5 

001562 

EM3 

011517 

LINE13 

001662 

AMTVP1 = 000000 

CLEAR = 000000 

DZCR6 

001574 

EM30 

012666 

LINE14 

001674 

AMTYP2= 000000 

CNVRT = 104412 

DZCR7 

001606 

EM4 

011556 

LINE15 

001706 

AMTYP3= 000000 

CONVRT= 104411 

DZVACT 

001406 

EM5 

011605 

LINE16 

001720 

AMTYP4= 000000 

CORMAX 013324 

DZVCSR 

002010 

EM6 

011634 

LINE17 

C01732 

APASS = 000000 

COO = 000400 

DZVCO 

001502 

EM7 

011673 

LINE2 

001530 

APRIOR= 000000 

C01 = 001000 

DZVC1 

001514 

EM8 

011734 

LINE3 

001542 

APTCSU= 000040 

C02 = 002000 

DZVC10 

001622 

EM9 

011776 

LINE4 

001554 

APTENV= 000001 

C03 = 004000 

DZVC11 

001634 

ERRMSG 

005246 

LINE5 

001566 

APTSIZ= 000200 

CR = 000015 

DZVC12 

C01646 

ERRVEC= 

000004 

LINE6 

001600 

APTSPO= 000100 

CRLF r 000200 

DZVC13 

001660 

ERTABO 

005422 

LINE7 

001612 

ASWRE6= 000000 

DATABP 005272 

DZVC14 

001672 

EVEPAR= 

OOOQOQ 

005352 

LOBITS 

004324 

ATESTN= 000000 

DATAHD 005260 

DZVC15 

001704 

EXITER 

LOCK 

001364 

AUNIT = 000000 

DCLASM= 104417 

DZVC16 

001716 

FALCIN 

000570 

LOCKUP 

007132 

AUSWR = 000000 

DCLR = 000020 

DZVC17 

001730 

FALCON 

013304 

LOLIM 

004316 
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LPRSET= 

104421 

BUHICH 

IPO = 

000000 

NEXT 

LP1 = 

000001 

NUBLJN 

IP2 = 

000002 

NUBTCR 

LP3 = 

000003 

ODDPAR= 

BAINT = 

000010 

ONE ST 0= 

RAN TO 

001510 

0VRRUN= 

BANT1 

001522 

PAR 

BANT10 

001630 

PARAB = 

BANT11 

001642 

PARAB1 

BANT12 

001654 

PARER = 

BANT13 

001666 

PARERR 

BANT14 

001700 

PARITY* 

BANT15 

001712 

PARBO = 

BANT16 

001724 

PARO 

BANT17 

001736 

PARI 

BANT 2 

001534 

PAR10 

RANT 3 

001546 

PAR11 

RANT 4 

001560 

PARI 2 

BANT 5 

001572 

PARI 3 

RANT 6 

001604 

PARI 4 

BANT 7 

001616 

PARI 5 

BASK = 

000200 

PARI 6 

BASTEK 

006351 

PARI 7 

BBADLN 

006462 

PAR2 

BCABLE 

007464 

PAR3 

BCHAR 

007330 

PAR4 

BCSRX 

006301 

PAR5 

BOATA 

007722 

PAR6 

BEPASS 

006117 

PAR7 

BERRPC 

006427 

PAW CH = 

BERRX 

006326 

PIRO = 

BERR2 

006157 

PIRQVE= 

BERR3 

006226 

POPRO = 

BINVAL 

007254 

P0P1SP= 

BLINE 

007302 

P0P2SP* 

BLOCK 

006252 

PRIO 

BNEU 

006354 

PRO = 

BNTFLG 

001424 

PR1 = 

BODE 

001372 

PR2 = 

BPASS 

007240 

PR3 = 

BPASSX 

006315 

PR4 = 

BPFAIL 

006054 

PR5 = 

BOUICK 

007501 

PR6 = 

BR 

006143 

PR7 = 

BREGAO 

007204 

PS 

BSENAB* 

000040 

PSU = 

RSPEED 

007312 

PUSHRO* 

RTERN 

007437 

PUSH1S* 

BTITLE 

001000 

PU5H25= 

RTSTN 

006337 

PWRVEC* 

BVECTO 

007162 

QUITS 

RVECX 

006307 

RCVON = 
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007371 

RDATA 007140 

001362 

R90NE = 00020C 

007150 

RECDAT 007156 

007152 

REGIST 001402 

000200 

RESREG 005274 

000000 

RESTAR 002544 

040000 

RESVEC* 000010 

001370 

RES05 = 104410 

104405 

RIE = 000100 

0C4166 

RINGO = 000001 

010000 

RING1 = 000002 

004242 

RING2 = 000004 

000100 

RIN63 = 000010 

104415 

RLO = 000000 

001506 

RL1 = 000400 

001520 

RL2 = 001000 

001626 

RL3 = 001 400 

001640 

RUN 001412 

001652 

R6 =2000006 

001664 

R7 =2000007 

001676 

SAVACT 001410 

001710 

SAVLIN 001374 

001722 

SAVNO 001416 

001734 

SAVNUB 001415 

001532 

SAVPC 001404 

001544 

SAV05 = 104407 

001556 

SC0P1 = 104401 

001570 

SERV.G 005436 

001602 

SET 006732 

001614 

SETFLG= 104406 

104416 

SET1 006764 

177772 

SEVEN = 000020 

000240 

SEVENS* 000060 

012600 

SHIFT = 104420 

005726 

SILQAL* 0200: i) 

022626 

SILOEN* 010000 

007154 

SIX = 000010 

000000 

SI XS = 000050 

000040 

SPACNT 004577 

000100 

SPEED 007146 

000140 

SPIN 010706 

000200 

STACK = 001120 

000240 

STFL6 007130 

000300 

STKLBT* 177774 

000340 

STOP 001446 

177776 

SV05 004334 

177776 

SUR 001304 

010046 

SWREG 000176 

005746 

SWO = 000001 

024646 

SWOO = 000001 

000024 

SU01 = 000002 

010742 

SU02 = 000004 

010000 

SU03 = 000010 


s 


5 


SEO 006h 


SW04 = 
SW05 = 
SU06 = 
SW07 = 
SU08 = 
SW09 - 
SU1 

SU10 = 

sun = 

SU12 = 
SW13 = 
SW14 = 
SW15 = 
SW2 = 
SW3 = 
SW4 = 
SU5 = 
SU6 = 
SU 7 = 

SU8 = 
SW9 = 
S110 = 
SI 200 = 
S134 = 
S150 = 
SI 800 = 
SI 9200= 
S2000 = 
S2400 = 
S300 = 
S3600 = 
S4800 = 
S50 = 

S600 = 
S7200 = 
S75 = 

S9600 = 
TA8LE2 
TBITVE= 
TBUF 
TCRO = 
TCR1 = 
TCR2 = 
TCR3 = 
TDATA 
TOO 
TD1 
TD2 
TD3 

TEIGHT 
TEMP 
TFIVE 
TIE = 


= 000100 



001000 

003400 

001400 

002000 

004000 

007400 

004400 

005000 

002400 

005400 


003000 

006400 

000400 

007000 

007026 

000014 



000010 

007136 

001426 

001430 

001432 

001434 

002106 

007660 

002114 

040000 


TKVEC = 
TLO = 
TL 1 = 

TL2 = 
TL3 = 
TBTBl 
TPVEC = 
TRAPVE= 
TRDY = 
TRTVEC* 
TRO 
TR1 
TR2 
TR3 

TSEVEN 

TSIX 

TST1 

TST2 

TWOSTO= 

TYPDAT 

TYPE = 

TYPBSG 

T110 

T1200 

T134 

T150 

T1800 

T2000 

T2400 

T300 

T3600 

T4800 

T50 

T600 

77200 

775 

T9600 

VEC1 

UCHFLG 

URDCNT 

UTBS.F 

XBEG1N 

XBX 

XCSR 

XERR 

XHEAD 

XBTCNT 

XBTLIN 

XPASS 

XSTATQ 

XTCR1 

XTSTN 

XVEC 


000060 

000000 

000400 

001000 

001400 

002050 

000064 

000034 

100000 

000014 

001436 

001440 

001442 

001444 

002110 

002112 

010124 

010500 

000040 

005262 

104402 

005152 

002054 

002066 

002056 

002060 

002070 

002072 

002074 

002062 

002076 

002100 

002050 

002064 

002102 

002052 

002104 

002272 

007126 

004574 

005250 

002450 

005040 

002712 

002734 

006434 

001400 

001376 

002726 

00652a 

006754 

005430 

002720 
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b 

XX = 

160210 

SDDW6 

001220 

YY 

000500 

SDDU7 

001222 

TZ - 

000020 

SDDW8 

001224 

SAPTHO 

001446 

SDDW9 

001226 

SATYC 

003560 

SDEVCT 

001130 

SATY1 

003534 

SDEVH 

001176 

Sat y3 

003542 

SDOAGN 

002706 

SATY4 

003552 

SE 

000002 

SAUTOB 

001300 

SENDAD 

002676 

S6ASE 

001174 

SENDCT 

002662 

SAD ADR 

001266 

SENV 

001140 

SBDDAT 

001272 

SENVH 

001141 

SCDU1 

001200 

SEOP 

002550 

SCDW2 

001202 

SEOPCT 

002654 

SCHARC 

003530 

SERFLG 

001247 

SCHTAG 

001244 

SERHAX 

001261 

SCH1 = 

000006 

SERROR 

005010 

SCH2 = 

000014 

SERRPC 

001262 

SCH3 = 

000006 

SERRTB 

001362 

SCH4 = 

000005 

SERTTL 

001256 

SCPUOP 

001146 

SETABL 

001140 

SCRLF 

001357 

SETEND 

001244 

SDDWO 

001204 

SFATAL 

001122 

SDDW1 

001206 

SFFLG 

004000 

SDDU10 

001230 

SFILLC 

001322 

SDDU11 

001232 

SFILLS 

001321 

SDDU12 

001234 

SFLIP = 

177777 

SDDU13 

001236 

SfREE = 

000002 

SDDU14 

001240 

SGDADR 

001264 

SODW15 

001242 

SGDDAT 

001270 

SL!>W2 

001210 

SGET42 

002666 

SODW3 

001212 

SHD = 

000001 

SOOW4 

001214 

SHJBTS 

001446 

SODW5 

001216 

SICNT 

001250 

. ABS. 

013324 000 

OVR 

RO 

ERRORS 

DETECTED: 0 



CVD2CB, 

,CVDZC8=CVDZCB 




SILLUP 

SINTAG 

SITEMB 

$LF 

SLFLG 

SLPADR 

SLPERR 

SMADR1 

SMADR2 

SMADR3 

SMADR4 

SMAIL 

SHAMS 1 

SHAHS 2 

SMAMS3 

SHAMS4 

SMBADR 

SHF LG 

SMSGAD 

SMSGLG 

SHSGTY 

SHTYP1 

SHTYP2 

SHTYP3 

SMTYP4 

SM 

SHULL 

SPASS 

SPASTH 

SPURAO 

SPWRDN 

SPWRHG 

SPUR UP 

SQUES 


006046 

001301 

001260 

001360 

003777 

001252 

001254 

001152 

001156 

001162 

001166 

001120 

001150 

001154 

001160 

001164 

001450 

003776 

001134 

001136 

001120 

001151 

001155 

001161 

001165 

000001 

001320 

001126 

001454 

006042 

005702 

006036 

005754 

001356 


ABS G8L 


nun iim.* ~ ^ 

RUN-TIHE RATIO: 196/28=6.8 
CORE USED: 3 7K <73 PAGES) 


SREGAD 

001324 

SVECT1 

001170 

SREGO 

001326 

SVECT2 

001172 

SREG1 

001330 

SXOFF = 

000023 

SREG2 

001332 

IKON = 

000021 

SREG3 

001334 

SY = 

000023 

SREG4 

SREG5 

001336 

001340 

SSGET4= 

OOOQOO 

013324 

SRTNAD 

002710 

'.AD VAN 

004676 

SSAVR6 

006052 

.BUFSE 

004766 

SSETUP= 

000000 

.CNVRT 

004424 

SSVPC = 

013324 

.CONVR 

004420 

SSUR = 

164000 

.DCLAS 

004644 

SSUREG 

001142 

.DELAY 

004656 

STESTN 

001124 

.DEVIC 

004624 

STJHES 

001354 

.ERRTA 

011170 

STAB 

001312 

.INSTE 

004106 

STKS 

001310 

.INSTR 

004002 

STHPO 

001342 

. INST1 

004022 

STHP1 

001344 

.LPRSE 

004726 

STHP2 

001346 

.HSG 

004024 

STHP3 

001350 

.PARAH 

004126 

STHP4 

001352 

.PARHO 

002742 

STN = 

000001 

.PAWCH 

006656 

STPB 

001316 

.RES05 

004366 

STPFLG 

001323 

.SAV05 

004326 

STPS 

001314 

•SC0P1 

003136 

STSTH 

001452 

•SETFL 

006536 

STSTNM 

001246 

.SHIFT 

004710 

STYPE 

003200 

.START 

002116 

STYPEC 

003412 

.TRPSR 

004602 

STYPEX 

003532 

.TRPTA 

001742 

SUNIT 

001132 

.TYPE 

003162 

SUN1TH 

001456 

.SX = 

« 001446 

SUSUR 

001144 




i 


